DANMARKS  STØRSTE  TASTE-IND  BLAD 
NR.  4-KR.  34,85 


UNDER  2  KR. 

PR.  PROGRAM!! 


DET  TYKKE  TILBUD: 


Tegn  abonnement  på  Danmarks 
største  program-bibliotek . . . 


”TAST”  er  Danmarks  største  taste-ind  blad. 
Et  sandt  bibliotek  af  spændende  kvalitetsprogrammer, 
der  nu  udkommer  fast  hver  tredie  måned. 

Tegn  abonnement  NU!  Ikke  bare  er 
det  den  billigste  løsning,  men  du  får  også 
bladet  bragt  til  døren  -  gerne  34  dage  før 

det  udkommer. 

Et  helt  år  koster  bare  122  kroner.  Eller  omkring 

en  krone  pr.  program  ... 

SEND  KUPONEN  IDAG! 


l - 

Ja  tak,  lad  mig  tegne  abonnement 
på  ”TAST”  i  et  år  (4  numre). 

Jeg  har:  Indsat  kr.  122,-  på  giro  9  40  60  77  □ 
Vedlagt  en  check  på  kr.  122,-  □ 

Navn _ 

Adresse _ 


Computer: _ 

Sendes  til:  TAST  Abonnement 
St.  Kongensgade  72 
1264  København  K. 


Kære  læser. 

Nu  er  det  endnu  tid  for  at  finde  tastaturet  frem  og  få  trykket  lidt  på  de  rigti¬ 
ge  knapper.  TAST,  Danmarks  største  taste-ind  blad,  er  hos  dig  igen. 
Mangler  du  små  (men  ofte  seriose)  rutiner,  du  kan  lægge  ind  i  dine  egne  pro¬ 
grammer,  er  vores  La  Petite  Programme  sagen.  LaPP-sektionen,  som  vi  også 
kalder  den,  finder  du  forrest  i  bladet,  og  her  har  vore  eksperter  valgt  de  al¬ 
lerbedste  småprogrammer  ud  til  dig  og  din  computer. 

Videre  i  bladet  finder  du  de  tunge  listninger.  TAST  er  blevet  så  kendt  for.  Kva¬ 
litetsprogrammer,  der  nok  er  værd  at  ha'  i  sin  program-samling.  Jo,  også  det¬ 
te  er  det  bedste  af  det  bedste. 

TAST  er  bladet  for  alle,  der  kan  li’  selv  at  lave  programmer.  Og  hånden  på  hjer¬ 
tet:  Er  der  noget  bedre  i  denne  kolde  tid  end  at  putte  sig  op  ad  en  varm  mo¬ 
nitor? 

Rasmus  Kirkegård  Kristiansen 
Chefredaktør 


4  Lav  selv  spil 

-  uden  selv  at  lære  programmerinc 

6  Tastlyd 

Commodore  64/128 _ 

6  Tempotester 

Commodore  64/128 


6  Søjlediagrammer 

Commodore  64/128,  VIC-20,  m.fl. 

7  Cursorset 

Commodore  64/128 


7  Dansk  karaktersæt 

_ Commodore  64/128  _ 


8  Programmeringstips 

Commodore  128 


8  10-fingerlær 

Commodore  64/128  m.fl. _ 

9  Smart  RSX 

Amstrad _ 

10  Halen  på  æslet 

Commodore  64/128 


10  Datamaker  Hex 

Commodore  64/128 _ 

11  Edit-kommandoer 

Commodore  64/128 


11  Scroll-text 

Commodore  64/128 


12  Farve-kommandoer 

Commodore  64/128 


12  Der  er  et  yndigt  . . . 

Commodore  64/128 

13  Ligningsløser 

Commodore  64/128,  C16/plus4,  VIC20 

14  Leramin 

Commodore  64/128 


17  Fruit  TVee 

Commodore  64/128 

22  Orlsplit 

Amstrad 

23  Castle  Dungeon 

Commodore  64/128 


26  Sortering 

Piccolo 

28  Ørneøje 

Amstrad 

31  Dødens  Passage 

Commodore  64/128 

34  King-Kong 

VIC-20 

36  Checkede  kassetter 

Spectrum 

39  Flagtræner 

Commodore  64/128 

42  Program-cruncher 

Commodore  64/128 


43  Disk-katalog 

Amstrad 


Ansvarshavende  udgiver: 

Klaus  Nordfeld 

Chefredaktør: 

Rasmus  Kirkegård  Kristiansen 

Redaktion: 

Henrik  Bang 
Jacob  Heiberg 
Michael  Christiansen 

Produktion: 

Haslev  Fotosats 


Peter  E.  Jensen 
Tobisch  Fotografi 
Bargholz  Offset  Repro 
Partner  Repro 
Olesen  Offset 
Skovs  Bogbinderi 

TAST 

St.  Kongensgade  72 
1264  København  K. 
Tlf.  01  91  28  33 
Postgiro-nr.  9  40  60  77 
Telefax  01  91  01  21 


TAST- 

Danmarks  største  taste-ind  blad 

Samtlige  aftrykte  listninger  er  afprøvede 
før  offentliggørelse.  Forlaget  betaler  skat¬ 
tefrit  op  til  1000  kroner  for  godkendte  læ¬ 
serprogrammer.  Forlaget  har  ret  til  at  af¬ 
trykke  godkendte  programmer  i  bladet 
og  må  offentliggøre  dem  på  andre  lager¬ 
media.  TAST  accepterer  listninger  til  alle 
markedets  datamater,  også  IBM,  Amiga 
og  lign.  Listninger  skal  være  skrevet  i  det 
i  datamaten  mest  benyttede  sprog.  Af¬ 
sender  garanterer  programmets  originalitet. 


Distribution: 

DCA 

Avispostkontoret 

Når  bladet  ikke  frem,  henvend  dig  da 
først  på  dit  lokale  postkontor. 

TAST  udgives  af  forlaget  Audio  A/S,  der 
også  udgiver  "SOFT",  svensk  "SOFT”, 
"COMputer",  svensk  "COMputer",  "Alt 
om  Data",  "ny  elektronik",  "high 
fidelity”,  svensk  "high  fidelity”  og 
Hi-Fi  årbogen. 


TAST 


»»*'* 


Det  er  spil  som  det¬ 
te,  du  selv  kan  lave 
uden  det  mindste 
kendskab  til  pro¬ 
grammering.  Og  du 
må  gerne  sælge  det 
videre  til  andre! 


Her  i  vi  i  sprite-de- 
signeren  og  i  færd 
med  at  designe  et 
flyvende  rum-øje. 
Øverst  oppe  til  ven¬ 
stre  ses  det  færdige 
resultat  i  naturlig 
størrelse.  Nederst 
vælges  farverne. 
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TAST 


Lov  dine  egne  spil  uden  at  kunne  programmmere: 

Når  computer- 

spillene  bliver 

(or  kedelige, 

Selv  uden  kendskab  til  programmering  kan 
du  lave  dine  egne  flotte  computer-spil.  Et  nyt 
program ,  "Shoot  'em-up  Construction  Kit"  gør 
det  muligt  -  efter  bare  få  timers  arbejde  kan  du 
frembringe  dine  egne  rumspil.  Og  de  er  ikke 
til  at  skelne  fra  de  professionelle  købe-spil! 


Tekst:  Rasmus  Kirkegård 
Foto:  Ernst  Tobisch  m.fl. 

Manges  drøm  er  at  kunne  pro¬ 
grammere  flydende.  Men  det  er 
svært  at  lære.  og  de  fleste  giver  op 
på  halvvejen.  At  mestre  en  compu¬ 
ter  så  godt  at  man  kan  frembringe 
professionelle  programmer  er 
nemlig  ikke  helt  ligetil.  Og  slet 
ikke  hvis  de  også  skal  være  fri  for 
fejl. 


Men  nu  er  hjælpen  kommet.  Et 
nyt  engelsk  program  sætter  selv 

m 


den  mest  uerfarne  computerejer  i 
stand  til  at  opfinde  spil.  Endda  spil. 
der  fungerer  og  faktisk  ikke  kan 
skelnes  fra  "den  ægte  vare'.  De  lig¬ 
ner  de  spil.  du  normalt  må  give 
næsten  200  kroner  for  i  forretnin¬ 
gerne.  Og  de  er  mindst  lige  så  sjove 
at  spille,  for  du  har  jo  selv  lavet 
dem. 

Helt  uden  at  kunne  så  meget  som 
bare  een  eneste  linie  BASIC,  kan 
enhver  nu  skrive  spil.  Program¬ 
met.  der  gør  det  muligt,  hedder 
'Shoot  em  up  Construction  Kit' 


Computeren  står  tændt,  klar  til  at 
du  laver  et  superspil.  Normalt  skal 
du  kunne  programmere,  men  ikke 
med  "Shoot'em  up  Construction 
Kit"  -  her  at  det  faktisk  nemmere 
at  lave  et  spil  end  det  er  at  spille 
det! 


og  kan  erhverves  i  landets  datafor¬ 
retninger  for  omkring  275  kroner 
( 1 00  kroner  mere  for  en  diskette¬ 
version).  I  øjeblikket  er  kun  Com- 
modore-ejere  de  heldige,  men  se¬ 
nere  på  året  vil  Amstrad-  og  Spec- 
trum-versioner  følge. 

Fire  gratis  rum¬ 
spil  følger  med. 

Når  du  køber  'Shoot  'em  up  Con¬ 
struction  Kit'  får  du  fire  gratis  spil 
med  på  båndet  eller  disketten. 
Spillene  er  alle  udviklet  på  'Con- 
struction  Kit"et.  så  udover  at  fun¬ 
gere  som  almindelige  spil.  du  kan 
få  tiden  til  at  gå  med.  virker  de  og¬ 
så  som  demos.  Faktisk  er  de  fire 
spil  den  bedste  måde  at  få  et  ind¬ 
tryk  af  programmets  muligheder¬ 
ne. 

Spillene  er  lavet  af  de  samme  men¬ 
nesker  som  skrev  'Parallax'  og 
'Wizball'  for  Ocean.  Det  er  også 
dem.  der  står  bag  'Shoot  em  Up 
Construction  Kit'  og  de  kalder  sig 
Sensible  Software. 

Mest  af  alt  ligner  spillene  'Xevi- 
ous"  og  andre  grafisk  gode  rum- 
spil.  Der  er  ikke  noget  nyskabende 
over  dem.  men  det  plejer  der  heller 
ikke  at  være  i  genren  -  her  er  det 
gode.  gedigne  skyd-dem-ned  spil. 
der  tæller. 

Med  'Shoot  'em-up  Construction 
Kit"  har  du  een  begrænsning:  Du 
kan  kun  lave  skydespil.  Altså  ikke 
noget  med  Pacman  eller  adventu¬ 
res.  Til  gengæld  at  der  rig  mulig¬ 
hed  for  at  lade  fantasien  få  frit  spil 
inden  for  områder  som  rumkrig, 
fremmede  planeter  og  vild  jagt  på 
fjendtlige  styrker. 

Du  kan  designe  både 
figurer  og  baggrunde. 

I  'Shoot  'em-up  Construction  Kit' 


er  sprite-designeren  nem  at  gå  til. 
Det  er  en  skærm,  hvor  du  selv  teg¬ 
neralle  figurerne.  een  eftereen.  Du 
kan  frit  lægge  farver  ind  og  det  he¬ 
le  er  meget  nemt.  Da  Anne  på  1 0 
blev  sat  hen  foran  skærmen,  var 
der  ikke  grænser  for.  hvor  nuttede 
de  mangefarvede  rumdyr  og  fan- 
tasi-væsener  kunne  blive. 

Ialt  kan  der  skabes  1 28  sprites  på 
hver  12x21  punkter.  Det  er  mere 
end  mange  af  de  professionelle  kø- 
bespil  bruger,  så  ingen  tvivl  om  at 
vi  er  kommet  op  i  den  tunge  klas¬ 
se. 

Også  lydsektionen  er  imponeren¬ 
de.  Den  minder  faktisk  om  en  hel 
lille  mini-mixer,  og  når  du  har 
skabt  netop  dine  lyde.  kan  de  gem¬ 
mes  og  kaldes  frem  på  vilkårlige 
tidspunkter  i  spillet.  Lydene  kan 
være  alt  lige  fra  melodier  til  smar¬ 
te  lydeffekter  som  eksplosioner, 
skud  eller  alarmsignaler.  Du  be¬ 
stemmer  (og  er  du  ikke  tilfreds, 
kan  en  lyd  altid  ændres). 
Baggrunde  kan  designes  efter 
samme  princip  som  dine  figurer, 
fjender,  rumskibe,  skud.  eksplo¬ 
sioner  og  alt  det  andet,  du  lavede 
med  spritedesigneren.  Her  gælder 
samme  princip:  Efter  få  timer  har 
man  lært  det,  for  alt  er  menu -sty¬ 
ret  med  nemme  oversigter.  Du 
skal  ikke  programmere  bare  een 
eneste  linie. 


Købere  af  "Shoot  'em-up  Con¬ 
struction  Kit'  må  frit  sælge  de  pro¬ 
grammer,  de  udvikler.  Der  er  ingen 
copyright  på  spil.  som  er  lavet  ved 
hjælp  af  programmet. 

Hos  udgiverne  i  England.  Palace 
Software  og  Outlaw  Productions. 
kan  man  da  også  melde  om.  at 
nogleafkonkurrentemeharværet 
på  indkøb.  Af  diskretionshensyn 
vil  de  ikke  røbe  hvem.  men  i  kroge¬ 
ne  hviskes  bl.a.  om  Mastertronic 
og  Firebird,  som  vil  bruge  'Shoot 
'em-up  Construction  Kit'  til  at 
masseproducere  billigspil  i  frem¬ 
tiden. 

Dine  egne  spil  må  du  selv  sælge 
som  du  lyster.  Har  du  fået  en  god 
og  salgbar  ide.  står  det  dig  altså 
frit  for  at  prakke  venner  og  be¬ 
kendte  spillet  på. 

Har  du  større  ambitioner,  kan  du 
indrykke  annoncer  i  bladene  og 
derigennem  sælge  dine  spil.  Ja. 
hvem  ved  -  måske  er  "Shoot  'em- 
up  Construction  Kit'  starten  på  dit 
eget  softwarefirma. 

Nye  tider  er  i  hvert  fald  kommet. 
De  dage.  hvor  programmering  var 
en  mystisk  kunst  er  forbi. 
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TAST 


Her  er  La  Petite  Pro- 
g ramme  eller  på  godt 
dansk:  Lxi.P.P.I 
Din  nye  sektion  med 
småprogrammer  og 
smarte  rutiner,  du  selv 
kan  lægge  ind  i  dine 
egne  programmer. 

Tastlyd 

Maskintype:  C64 
Gevinst:  1 00  kr. 

Har  du  altid  drømt  om  at  have  et  tastatur  magen  til  Lambda'ens. 
dvs.  med  lyd  hver  gang  du  trykker  på  en  tast?!  I  så  fald  kan  du  ind¬ 
taste  dette  program,  og  du  får  således  lyd  på  dine  taster. 

J.  Madsen 

10  FOR  T  =  49 1 52  TO  49184 

15  :  READ  A:  POKE  T , A :  CHK=CHK+ A 

20  NEXT  T 

25  IF  CHKO4014  THEN  PR  I NT"DATAFEJL ! 
30  DATA  120,169,  13,141,  20,  3,169, 

192,141,  21,  3 

40  DATA  88,  96,165,197,201,  64,240, 
10, 169,255, 141 

50  DATA  24,212,169,  0,141,  24,212, 

76,  49,234,255 

Tempotesier 

Maskintype:  C64 
Gevinst:  1 00  kr. 

Programmet  måler,  hvor  hurtig  du  er  til  at  skrive  alfabetet.  Er  du 
hurtigere  end  programmøren,  vil  du  få  ’highscore'.  ellers  får  du 
en  paptud. 

Det  lyder  lidt  underligt,  men  når  du  har  tastet  det  ind  og  prøvet 
det.  så  er  det  faktisk  meget  simpelt! 


5  PRINT  CHR$(147) 

10  LET  H  =  40 

20  PR  I NT"PRESS  SPACE  TO  START" 

30  POKE  1 98 , O : W A I T  198,1:P0KE  198,0 
40  TI $="000000" 

45  PRINT  CHR$  (  147)  "GO  " 

50  FOR  N=65  TO  90 
60  :  PRINT  CHR$ ( N ) ; 

70  :  GET  A$:IF  A$ < >CHR$ ( N ) THEN  70 
75  :  PR  I  NT " l CRSR  VENSTRE, RVS  ON)"; 

CHR$ ( N ) ; ” (RVS  OFF ) " ; 

80  NEXT  N 
85  PRINT 

90  PR  I NT"T I ME  ; " ; T I  $ : T  =  VAL ( T I  $ ) 

100  PR  I  NT "FASTEST  :";H 
110  PR  I NT"D I FFERENCE  s " ; T-H 
120  1F  T>H  THEN  PR  I NT"TRY  AGA I N  -  AM 
ATEUR" 

130  1F  T<H  THEN  H  =  T : PR  1 NT"OKAY .  YOY’ 
RE  GOOD" 

140  GOTO  20 


Søjlediagram 

Maskintype:  C64  (Cl 28  og  VIC20) 

Gevinst:  100  kr. 

Mangler  du  en  metode  til  at  fremstille  højopløselige  søjler  i  et 
BASIC  program,  foreksempel  hvor  der  samtidig  skal  ståen  masse 
tekst  på  skærmen?  I  så  fald  vil  dette  program  være  svaret  på  dine 
drømme. 

Programmet  laver  nemlig  en  højopløselig  søjle  hvor  på  skærmen 
du  ønsker  det. 

Skal  du  bruge  flere  søjler  samtidig,  kan  du  blot  lægge  rutinen  i  dit 
eget  program  som  en  subrutine,  hvor  du  sætter  højde,  x  og  y 
samt  farve,  før  du  kalder  den.  Det  gør  nemlig,  at  du  kantegne  lige 
så  mange  søjler  du  vill 

Morten  Sørensen 

5  PRINT  CHR * (147) 

10  INPUT"X-KOORDINAT: ";X 
20  I NPUT"Y -KOORD  1  NAT : " ; Y 
30  I NPUT"HO J  DE  :";H 

40  I NPUT"FARVE  :";F 

45  PRINT  CHR  $ (147) 

50  DATA  100,111,121,98,248,247,227, 
160 

60  RESTORE 
70  FOR  A  = 1  TO  8 
75  :  READ  H ( A ) 

80  NEXT  A 

90  AD=983+Y*40+X:FV=55255+Y#40+X 
100  IF  H=0  THEN  POKE  AD , 32 : END 
110  IF  AD< 1 024  THEN  END 
120  IF  H>8  THEN  POKE  AD,H(8) 

: POKE  FV, F:H=H-8:AD=AD-40:FV=FV-40 
: GOTO  100 

130  POKE  AD , H ( H ) : POKE  FV , F : END 
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Cursorset 

Maskintype:  C-64 
Gevinst:  100  kr. 

Denne  lille  listning  gør  det  muligt  at  sætte  cursoren  et  vilkårligt 
sted  på  skærmen.  Du  får  altså  en  slags  PRINT  AT  til  din  rådighed. 
Programmet  indtastes.  RUN'es  og  derefter  vil: 

-c  XJf 

Sætte  cursoren  på  position  x  i  linie  y.  Skal  du  f.eks.  skrive  "hejsa!" 
midt  på  skærmen,  skriver  du  blot: 

*— C  16.13:  PRINT  "hejsa!" 

Ole  Christensen 


10  DATA  32,115,0,240,4,201,95,240,3, 
76,231,167,32, 115,0,201,67 
20  DATA  240,3,76,8,175,32,52,192,202, 
134,214,169,13,32,210, 255,32,52, 
192, 134, 211 

30  DATA  76,174,167,169,0,141,8,3,169, 
192, 141,9, 3,96 

40  DATA  32,115,0,56,233,48,170,32, 

115,0,201, 58,240, 21,201, 44,240, 17, 
56, 233,48 

50  DATA  160,10,134,211,24,101,211, 
136,208,250, 170,32,115,0,96 
60  FOR  A=49152  TO  49239 
70  :  READ  Q :  POKE  A,Q 
80  NEXT  A 

90  SYS  49193 : REM*  START  CURSORSET 

Dir 

karaktersæt 

Maskintype:  C64 
Gevinst:  100  kr. 

Er  du  en  af  de  uheldige  stakler,  der  ikke  har  dansk  karaktersæt  i 
din  computer  (64'er).  Da  erhjælpen  nær.  for  dette  program  giver 
dig  nemlig  danske  karakterer.  Der  er  tale  om  ægte  dansk  karak¬ 
tersæt.  dvs.  både  inverse  karakterer,  store  og  små.  Og  du  kan 
også  skifte  ved  Commodore  +  shift. 

Det  smarteste  ved  programmet  er.  at  det  ikke  stjæler  noget  fra 
din  sparsomme  BASIChukommelse.  Næh.  programmet  bruger 
hukommelsen  fra  adresse  501 76  og  frem.  Fra  adresse  501 76  lig¬ 
ger  skærmen! 

Det  betyder,  at  hukommelsen  fra  adresse  1 024  til  2023  kan  bru¬ 
ges  til  maskinkodeprogrammer  i  stedet. 

BEMÆRK.  TRYKKER  DU  RUNSTOP/RESTORE.  skal  du  i  blinde 
skrive: 

POKE  648.4 

Forat  kunne  se  hvad  derforegår.  Det  skyldes  netop,  at  skærmen  i 
det  danske  karaktersæt,  ligger  højt  oppe  i  hukommelsen. 

Forat  undgå,  at  de  danske  karakterer  forsvinder  (ved  tryk  på  run- 
stop/restore).  kan  du  f.eks.  skrive: 

POKE  808251 

Det  sætter  simpelt  hen  Runstop/restore  ud  af  funktion. 

J.  Christensen 


11000  DATA  120,169,12,141,24,3,169, 
192,141,25,3,96,169,4,141,136,2, 
32, 71 , 254, 160 

11001  DATA  ,177,2,145,4,200,165,7, 

201 , , 208, 5,196,6, 208, 1 , 96, 192, O, 
208, 236, 230, 3 

11002  DATA  230,5,198,7,76,20,192,0 

11003  FOR  F=491S2  TO  49203:READ  A 

: POKE  F ,  A : NEXT  F : DATA  160,0,173, 
134,  2,  145, 2,20, 165, 5 

11004  DATA  201,0,208,5,196,4,208,1, 
096, 192,  , 208,235,230, 3,  198, 5, 76, 
52, 192 

11005  FOR  F  =  49204  TO  49233:READ  A 
: POKE  F , A : NEXT  F : POKE  1, 

PEEK ( 1 ) OR  1 : POKE  648,196 

11006  MC=S3272:P0KE  MC, 

( PEEK  C  MC ) AND  24010R  12 
: POKE  MC, (PEEK(MC)AND  15)0R  16 

11007  POKE  56576, (PEEKC56576) AND  252 
)  OR  O 

11008  POKE  56334 , PEEK ( 56334 ) AND  254 
: POKE  1 ,  PEEK 11) AND  251:P0KE  2,0 

:  POKE  3 , 208 : POKE  4,0 

11009  POKE  5 , 240 : POKE  6,255:P0KE  7,15 
:  SYS  49 172: POKE  1 , PEEK  ti) OR  4 

11010  POKE  56334, PEEK l 56334 ) OR  1 

11011  FOR  F  =61656  TO  61679-.READ  A 
:  POKE  F , A : NEXT  F 

11012  DATA  63,102,102,127,102,102, 
103,0 

11013  DATA  62,99,103,107,115,99,62,0 

11014  DATA  28,0,62.99,99,127,99,0 

11016  FOR  1=1  TO  6 : READ  D 
:  FOR  N  =  0  TO  7 : READ  T 

11017  POKE  D*8+256*240+N,  T 

:  POKE (D+ 128) »8  +  256 *240  + N,  255 -T 
: NEXT  N, 1 

11018  FOR  1=1  TG  3 : READ  D 
: FOR  N=0  TO  7 : READ  T 

11019  P0KE(D+64) *8 +256* 240+ N , T 

: POKE (D+ 192) *8+256*240+N, 255-T 
: NEXT  N, I 

11025  PR1NT"ÆÅØ+  IS  "  :STOP 
11100  DATA  27,63,108,108,127,108,108, 
111,0 

11110  DATA  28,29,54,103,107,115,54, 
92,  O 

11120  DATA  29,12,0,28,54,99,127,99,0 
11130  DATA  283,0,0,55,13,63,108,63,0 
11140  DATA  284,0,0,62,103,107,115,62, 
O 

11150  DATA  285,12,0,60,6,62,102,62,0 
11200  DATA  283,63,108,108,127,108, 
108,111,0 

11210  DATA  284,29,54,103,107,115,54, 
92,0 

11220  DATA  285,12,0,28,54,99,127,99,0 


TAST -7 


TAST 


Programtips 

Maskintype:  Cl 28 
Gevinst:  100  kr. 

Der  er  ikke  så  meget  at  sige  om  programmet:  læs  alle  linierne,  og 
du  vil  få  et  programmeringstips  til  Commodore128. 

Brian  Andersen 

10  REM  ***#**######**####****#» 

12  REM  »»  PROGRAMMERINGSTIPS  ** 

14  REM  »*  TIL  C0MM0D0RE128  ** 

16  REM  **###***#*»*«##*»#*##*«# 

18  REM  * 

20  REM  *  HVIS  MASKINEN  GAR  I  * 

22  REM  *  COMA,  SA  PRØV:  » 

24  REM  *  TRYK  RUN/STOP  NED  OG  * 

26  REM  *  TRYK  SAMTIDIG  RESET.  * 

28  REM  *  SLIP  DEREFTER  RESET,  * 

30  REM  *  OG  MASKINEN  V I L  GA  * 

32  REM  *  OVER  I  MONITOREN.  * 

34  REM  *  TRYK  NU  ’  X’  OG  PRO-  « 

36  REM  *  GRAMMET  ER  REDDET!  * 

38  REM  *##**#«**#«**###*##**#** 


70  finger  lær 

Maskintype:  Commodore 
Gevinst:  1 00  kr. 

Tja.  kan  du  ikke  skrive  på  maskine  med  tifingersystemet.  så  er  der 
her  et  program  der  kan  lære  dig  det.  Programmet  viser  simpelt 
hen  hvilke  fingre  der  skal  lægges  hvor.  HUSK  dog.  at  udgangsstil¬ 
lingen  for  tifingersystemet  er:  ASDFJKLÆ,  derefter  er  det  meget 
let  at  bruge  programmet.  Du  skal  nemlig  taste  en  del  tegn  ind. 
Programmet  laver  fra  1  til  6  tilfældige  linier,  som  du  skal  ind¬ 
taste.  Derefter  beregner  det  en  gennemsnitshastighed  og  fejlpro¬ 
centen. 

1  GOSUB  13: PRi NT" (HOME, CRSR  NED4 , 

SPACE2 ) HVOR  MANGE  LINIER  VIL  DU  S 
KRIVE  (1-6) (CRSR  NED6 ) " 

2  GET  A * :  I F  A$<"1"0R  A$>"6"  THEN  2 

3  Q=VAL(A$) :FOR  A=1  TO  Q 

: FOR  B= 1  TO  40 : C= I  NT ( RND ( 1 ) »47 ) +44 
:  I F  059  AND  C<64  OR  C  =  45  THEN  C  = 
32 


4  AS ( A ) =  A$ ( A ) +  CHRS (C) : NEXT  B , A 

: FOR  A= 1  TO  5 : PR  I  NT "STARTER  OM  "6 
-A"  SEK . " : FOR  B=0  TO  666 

5  NEXT  B , A : GOSUB  13:F0R  A=1  TO  Q 

: PR  I  NT  AS ( A)  :NEXT:T I $  =  "000000" 
:Z=55416 

6  FOR  A= 1  TO  Q : FOR  B=0  TO  39 

7  PRINT" (HV I D, HOME) "T I  S : GET  AS 

:  I F  AS  =  " "THEN  7 

8  POKE  Z  +  B  ,  1  :  1  F  ASOM  I  DS  i  AS  (  A  )  ,  B+  1 , 

1 ) THEN  POKE  Z+B,6:F=F+1 

9  NEXT : Z=Z+80 : NEXT :H=(40*Q-10»F)/ (TI 

/60) :G=F/ (Q»40)#100:GOSUB  13 
: POKE  53281 , 14 

10  POKE  53280, 6 : PR  I  NT" ANSLAG  PR.  SEK. 
: " ; H : I F  H>HH  THEN  HH=H 

11  PR  I  NT" ( CRSR  NED ) FE J  LP ROCENT  :";G 
:  1 F  HH  THEN  PRINT"(CRSR  NED2 ) HØJ E 
STE  ANSLAG/SEK. : " ; HH 

12  INPUT" (CRSR  NED2 ) TAST  RETURN  ";A 
: FOR  A= 1  TO  6:A$ (A) ="" :NEXT : F=0 

: GOTO  1 

13  PR  I  NT" (CLR, CRSR  NED 1 6 , CRSR  H0JRE2, 
RVS  0N,HV1D)«-(CRSR  HOJRE, 

SORT ) 1 ( CRSR  HOJ  RE ) 2 ( CRSR  H0JRE)3( 
CRSR  HOJ  RE ) 4 ( CRSR  H0JRE)5(CRSR  HO 
J  RE ) 6 ( CRSR  HOJ  RE ) 7 ( CRSR  H0JRE)8(C 
RSR  HOJ  RE ) 9 ( CRSR  H0JRE)0(CRSR  HOJ 
RE )  +  ( CRSR  HOJ  RE ) - ( CRSR  HOJRE)0(CR 
SR  HOJRE, SPACE, CRSR  HOJRE, SPACE, 
CRSR  HOJ  RE2 ) F 1 " 

14  PR  I  NT" ( CRSR  NED, CRSR  H0JRE2, 

RVS  ON, HVID, SPACE2, CRSR  HOJRE, 

SORT ) Q ( CRSR  HOJRE)W(CRSR  HOJRE)E( 
CRSR  HOJ  RE ) R ( CRSR  HOJRE)T(CRSR  HO 
J  RE ) Y ( CRSR  HOJ  RE ) U ( CRSR  HOJRE)  1  (C 
RSR  HOJ  RE ) O ( CRSR  HOJRE)P(CRSR  HOJ 
RE  )  ls>  (  CRSR  HOJ  RE  )  #  (  CRSR  HOJRE)-f(CR 
SR  HOJRE, SPACE2, CRSR  H0JRE2)F3" 

: POKE  53281 , 10:P0KE  53280,2 

15  PRINT" (CRSR  NED, CRSR  H0JRE2, 

RVS  ON, SPACE, CRSR  HOJRE, SORT, 
SPACE, CRSR  HOJ  RE ) A ( CRSR  HOJRE)S(C 
RSR  HOJRE)D(CRSR  HOJRE)F(CRSR  HOJ 
RE ) G ( CRSR  HOJ  RE ) H ( CRSR  HOJRE)J(CR 
SR  HOJ  RE ) K ( CRSR  HOJRE)L(CRSR  HOJ R 
E ) : (CRSR  HOJRE); (CRSR  HOJRE)=(CRS 
R  HOJRE,  SPACE)«-*  (CRSR  H0JRE2, 

H V  I D ) F5 " 

16  PR  I  NT" ( CRSR  NED, CRSR  H0JRE2, 

RVS  ON, SPACE, CRSR  HOJRE, SORT, 
SPACE2 , CRSR  HOJRE)Z(CRSR  HOJRE)X( 
CRSR  HOJRE)C(CRSR  HOJRE)V(CRSR  HO 
J  RE ) B ( CRSR  HOJ  RE ) N ( CRSR  HOJRE)M(C 
RSR  HOJRE), (CRSR  HOJRE). (CRSR  HOJ 
RE ) / ( CRSR  HOJRE, SPACE2, CRSR  HOJRE, 
HVID, SPACE, CRSR  HOJRE, SPACE, 

CRSR  HOJ  RE2 ) F7" 


8 -TAST 


TAST -9 


TFIST 


Halen  på  æslet 

Maskintype:  C64 
Gevinst:  1 00  kr. 

Her  er  så  et  lille  spil.  Spillet  går  ud  på.  at  du  skal  sætte  halen  på 
æslet.  Æslet  står  altid  midt  på  skærmen,  men  du  står  forskellige 
steder  hver  gang. 

Du  kan  se  på  skærmen  hvor  du  er.  men  det  er  snyd.  Du  skal  sim¬ 
pelt  hen  lytte  dig  frem  til  æslet.  Det  kan  sagtens  lade  sig  gøre.  for 
der  er  en  lyd  i  højttaleren,  som  bliver  højere  og  højere,  lige  indtil 
du  rammer  æslet. 

Birthe  Jensen 


10  POKE  53281 , 0:P0KE  53280,0 

: PR  1  NT" ( CLR ) "CHR$ ( 142)CHR$  t  8  > 

20  L=54272:  FOR  1=0  TO  23:  POKE  L+ 1 , O 
: NEXT :  POKE  L+l, 5:  POKE  L+6,243 
30  1 =RND( -TI  )  :DEF  FNT ( X )  =  I  NT l X*RND ( 1 
)  ) 

40  Xl=19:Yl=12 

100  PR  I  NT" iCLR) " : POKE  55296+X1 +40*Y1 , 
1 : POKE  1024+X1 +  40*  Y 1 , 94 
110  X  =  FNT l 10 ) +30« FNT ( 2  ) 

:  Y  =  FNT  (  5  )  +20 »FNT  ( 2 )  :  POKE  L+4, 17 
120  TI $="000000" 

200  T=PEEKt 197) :X=X+ (T=20  AND  X>0)-( 
T=3 1  AND  X<39 ) :Y=Y+(T=l4  AND  Y>0) 

-  (  T=  18  AND  Y<.24 ) 

210  POKE  1024+X+40*Y , 90 

220  A= ( 1 +ABS ( X-Xl ) ) *  < 1 +ABS ( Y- Y 1 ) ) 

: POKE  L+l , 150-A/2: 1 F  A>1  THEN  200 
230  POKE  L+4 , 16 : POKE  L+l, 25 
240  FOR  1=0  TO  9:  POKE  L+4, 33 
: POKE  L+4, 32:  FOR  J=  O  TO  99 
: NEXT  J , I 

250  PR  1 NT"DU  KLAREDE  DET  PA"INTtTI/6 
O)"  SEKUNDER." 

260  P  R i N  T " V  I L  DU  SPILLE  IGEN?"; 

: POKE  198 , O : POKE  204,0 
270  GET  1  $ :  I F  1$^>"J"AND  1$<>"N"THEN 
270 

280  POKE  204 ,  1 : PR  1  NT  1$ 

:  IF  I  $  =  " J "THEN  100 

500  PR1 NT" (HOME) " ; PEEK l 197 ) " t  CRSR  VE 
NSTRE, SPACE2) " :GOTO  500 


Datamaker 

hex 

Maskintype:  C-64 
Gevinst:  300  kr. 

Dette  program  er  simpelt  hen  et  MUST  for  alle.  der  programme¬ 
rer  maskinkode,  og  gerne  vil  indsende  til  bl.a.  TAST.  Det  skyldes, 
at  programmet  laver  dit  maskinkodeprogram  om  til  datalinier. 

Oven  i  købet  nogle  ganske  tjekkede  linier,  for  hver  linie  har  sin 
egen  checksum  -  det  sikrer,  at  du  indtaster  det  hele  rigtigtl  Der¬ 
udover  laver  programmet  datalinierne  som  hexadecimal,  dvs. 
hvert  datasæt  fylder  to  tegn.  og  det  er  tegn  fra  A  til  P.  på  den 
måde  skal  man  ikke  knække  alle  fingrene  for  at  nå  de  taster  man 
skal  bruge  til  data’ene. 

Anders  Munch 

5  INPUT" (CLR)DATA  FRA  ADR.  ";A 

: PR  I  NT" ( CLR ) 10  A=";A 
: PR  I  NT" 100  A= " ; A : PR  I  NT" RUN  1 0" 

6  POKE  63 1,19: POKE  632,13:P0KE  633,13 

:  POKE  634 ,13: POKE  198,4  : END 

10  A=  49152 

11  PRINT" (CLR)DATA  FRA  ADR . " ; A 

12  I  NPUT" ( CRSR  NED, SPACE)-  OG  TIL  (I 
NCL .  )  : " ; AS : L  =  200 : L$  =  "200  DATA  " 

15  V  =  PEEK ( A )  : L$=L$+CHR$ ( V/ 16  +  65) +CHR 
$1 (V  AND  15) +65) :C= l2#C  OR  V)-(2* 

C  AND  V) 

20  C=tC  AND  255)-(C>255) :A=A+1 
:  I  F  A<.  AS  THEN  40 

25  PRINT" (CLR) " ;L$ ; ", " ; M 1 D$ t STR$ ( C )  , 
2) ;", ";CHR$(34) ; :POKE  212,. 

: PR  1  NT" l CRSR  VENSTRE ,  1  NST )" ; 

CHR$ ( 34) 

30  PR  I  NT" ( CRSR  NED ) OK .  SLET  NU  LINIE 
10-55" ; 

35  POKE  631 , 19 : POKE  632,13:P0KE  198,2 
:  END 

40  ON- ( LEN ( L$ ) <74+3# IAS-A<2) )  GOTO  15 
:  PR  I  NT" (CLR) " ; L$ ; "  ,  " ; 

M 1 D$ (STR$ (C) , 2) 

45  PR  I  NT" A= " ; A ; " : AS= " ; AS ; " : L= " ; L  +  5 ; " 

:C=" ; C ; " :G0T055" 

50  POKE  63 1,19: POKE  632,13 

: POKE  633 ,13: POKE  198,3:END 
55  L$=STR$ (L) +"DATA  ":GOTO  15 
100  A  =  49152 

110  PRINT" (CLR)JEG  SKRIVER  DATA  FRA 
ADR . ” ; A : READ  L$,C:PR1NT  A”(CRSR  V 
ENSTRE) " ; 

120  FOR  T= 1  TO  LEN ( L$ ) /2 

:V=(ASC(MlD$tL$,2*T-l))-65)*16+AS 
C(MID$(L$,2*T) ) -65 
130  H=  t  2»H  OR  V  )  -  (  2*H  AND  V) 

: H= ( H  AND  255 ) - ( H>255 ) 

: POKE  A  +  T-l , V : PR  I  NT” . " ;  : NEXT  T 
:  PR  1  NT 


10  -  TAST 


TAST 


140  IF  C  <  >  H  THEN  PR  1  NT" DATAFE J L  I  LI 
NIE  " ; PEEK ( 63 ) +256*PEEK ( 64  ) : END 
150  A=A+LEN ( L$ > /2 : READ  L$ 

•.PRINT  A"  ( CRSR  VENSTRE)"; 

:  I F  L* O " "THEN  READ  C : GOTO  120 


Edit- 

kommandoer 

Maskintype:  C64 
Gevinst:  1 00  kr. 

Ligesom  ovenstående  program,  laver  dette  nogle  nye  BASIC- 
kommandoer.  Disse  kommandoer  gør  det  lidt  lettere  at  pro¬ 
grammere. 

De  nye  kommandoer  er: 

-i  Der  tænder  cursoren  og  venter  på  et  tastetryk.  og  slukker  cur- 
soren  igen.  Det  tegn  der  blev  trykket,  kan  læses  med  en  GET  A$. 
Hvor  A$  altså  vil  være  det  nedtrykkede  tegn. 

-r  x.  Der  sætter  repeatmode. 
x-0  betyder  Cursortaster  repeterer, 
x— 1  betyder  INGEN  taster  repeterer, 
x— 2  betyder  ALLE  taster  repeterer. 

«-f  x,  Fill.  Denne  kommando  skriver  x  bytes  med  chr$(32).  der  er 
mellemrum.  Det  vil  sige.  at  skriver  du  -f  40.  vil  du  skrive  40  mel¬ 
lemrum  på  skærmen  (og  det  er  det  samme  som  at  slette  40 
tegn). 

Ligeledes  vil  -f  240.  slette  seks  skærmlinier  (fra  cursor  positio¬ 
nen). 

J.  Christensen 


I  REM  TRE  NYE  B AS  I CKOMMANDOER 

3  REM  <-l  1NKEY  «-R  X,  REPEAT 

4  REM  «-F  X,  FYLD 

10  DATA  32,115,0,201,0,240,249,201 

II  DATA  95,240,4,76,231,167,234,160 

12  DATA  0,32,115,0,201,73,240,11,201 

13  DATA  62,240,25,201,70,240,37,76 

14  DATA  231,167,162,0,134,198,134,204 

15  DATA  232,228,196,206,252,134,196 

16  DATA  134,204,76,228,167,32,155,183 

17  DATA  138,42,42,42,42,42,42,141,138 

18  DATA  2,76,228,167,32,155,183,169 

19  DATA  32,32,210,255,202,224,0,208 

20  DATA  248,76,228,167,120,169,32,141 

21  DATA  8,3,169,203,141,9,3,88,96,120 

22  DATA  169,228,141,8,3,169,167,141 

23  DATA  9,3,88,96 

24  FOR  F=52000  TO  52110:READ  A 
: PGKE  F, A:CH=CH+A:NEXT  F 

25  IF  CHO 14035  THEN  PR  I  NT"FEJ  L  1  DA 
TA ! " : STOP 

26  SYS  52085 : REM  *  START  NY  BASIC 


Strolltekst 

Maskintype:  C64 
Gevinst:  100  kr. 

Her  er  et  nyt  scrollprogram.  Dette  program  er  temmelig  avance¬ 
ret,  idet  man  kan  scrolle  op  til  1  K(1024tegn)tekst.  Denne  tekst 
ligges  sidst  i  programmet  (der  hvor  der  nu  står:  32,20, 1 . 1 9.20). 
Som  du  ser.  skal  den  lægges  i  datalinier,  og  med  Commodores 
egne  koder.  Hvis  du  ønsker  at  ændre  teksten,  skal  du  huske  at 
ændre  tallene  i  linierne  1 5  -  24. 1 FOR-NEXT  løkkerne  skal  tallet  4 
rettes  til  (antallet  af  tegn)-1 .  Dvs.  for  1 00  tegn  skriver  du:  99. 
I  linie  24  skal  du  rette  A-A+ 1 00.  HUSK  endelig  også  at  dimen¬ 
sionere  A  til  antallet  aftegn.  Skal  du  f.eks.  have  en  scrolltekst  på 
1 00  tegn.  så  skriv  (f.eks.  linie  1 4)  1 4  Dl  M  A(  1 00)  og  du  vil  nu  kun¬ 
ne  bruge  din  scrolllinie. 

J.  Hansen 


O  REM  SCRGLL-SKAERM  AF  J . HANSEN 

1  REM  SCROLL-TEKSTEN  SKAL  LIGGES 

2  REM  FRA  49152  TIL  50176 

5  PR  I  NT" (CLR, HV 1 D, RVS  ON ) START  =  SYS 

52992 l RVS  0N)":P0KE  53280,0 
: POKE  53281,0 

6  PRINT" (RVS  ON ) DE AKT  IVERES  MED 

:  SYS  53064 (RVS  OFF)" 

10  FOR  A=52992  TO  53096 

11  :  READ  S:  POKE  A,S:CH=CH+S 

12  NEXT  A 

15  FOR  N  =  0  TO  4 

16  :  READ  A ( N ) 

17  NEXT  N 

20  A=49152 

21  FOR  N=0  TO  4 

22  :  POKE  A+N , A ( N ) 

23  NEXT  N 

24  A  =  A  +  5 :  IF  A>50176  THEN  A  =  49152:END 

25  GOTO  21 

100  DATA  169,192,141,25,207,169,0,141 
105  DATA  24,207,169,21,141,20,3,169 
110  DATA  207,141,21,3,96,162,1,189 
115  DATA  0,192,157,191,7,232,224,41 
120  DATA  208,245,238,24,207,173,24, 
207 

125  DATA  201,0,208,3,238,25,207,173 
130  DATA  25,207,201,196,208,5,162,192 
135  DATA  142,25,207,162,0,173,255,206 
140  DATA  157,191,219,232,224,41,208, 
248 

145  DATA  160,0,162,0,232,224,0,208 
150  DATA  251,200,192,26,208,244,238, 
255 

155  DATA  206, 76, 49, 234, 120, 169, 49, 141 
160  DATA  20,3,169,234,141,21,3,88,96 
170  REM  *  TEKST 
175  DATA  32,20,1,19,20 


TAST  -  11 


TRST 


Farve - 

kommandoer 

Maskintype:  C64 
Gevinst:  100  kr. 

Dette  korte  maskinkodeprogram  giver  dig  tre  nye  farve- 
kommandoer.  Det  er  jo  temmelig  meget  nemmere  at  skrive:  -b 
S.  for  at  få  borderen  grøn.  end  at  skrive  POKE  53280.5.  ikke? 
De  kommandoer  programmet  stiller  tilrådighed  er: 

-b  x.  Borderfarven  sættes  til  x.  HUSK  kommaet  efter  x. 

-v  x.  Videofarven  sættes  til  x.  HUSK  kommaet  efter  x. 

-p  x.  Skriftfarven  (pen)  bliver  farve  x.  HUSK  kommaet  efterx’et. 
Da  programmet  lægger  kommandoerne  i  forlængelse  af  den  nor¬ 
male  BASIC,  vil  det  ikke  betyde  noget,  hvis  du  taster  RUNSTOP/ 
RESTORE. 

Programmet  har  dog  een  begrænsning,  det  kan  ikke  forstå  linier 
med  indledende  kolonner  (:).  derfor  skal  disse  linier  ændresi 

J.  Christensen 


1  REM  ***  TRE  BASICKOMMANDGER 

2  REM  *  STARTES  MED:  SYS52062 

3  REM  *  STOPPES  MED:  SYS5207S 

6  REM  *  «-B  X,  =  BORDER  FARVE  X 

7  REM  *  <-V  X,  =  SKÆRM  FARVE  X 

8  REM  »  <-P  X,  =  SKRIFT  FARVE  X 

9  DATA  32,115,0,201,0,240,249,201,95 

10  DATA  240,4,76,231,167,234,160,0 

11  DATA  32,115,0,201,66,240,11,201 

12  DATA  80,240,16,201,86,240,21,76 

13  DATA  231,167,32,155,183,142,32,208 

14  DATA  76,228,167,32,155,183,142,134 

15  DATA  2,76,228,167,32,155,183,142 

16  DATA  33,208,76,228,167,120,169,0 

17  DATA  141,8,3,169,203,141,9,3,88 

18  DATA  96,120,169,228,141,8,3,169 

19  DATA  167,141,9,3,88,96 

20  FOR  F=52000  TO  52087:READ  A 
: POKE  F, A:CHK=CHK+A:NEXT  F 

21  IF  CHKO 10527  THEN  PR  I NT"FEJ L" 

:  STOP 

22  SYS  52062:  REM  *  START  NYE  KOMM. 


Der  er  så 
yndigt ... 

Maskintype:  C64 
Gevinst:  100  kr. 

Her  får  du  simpelt  hen  et  program,  som  spiller  nationalmelodien. 

Det  lyder  oven  i  købet  rigtigt. 

Står  du  og  skal  bruge  en  smart  afslutning  (eller  begyndelse)  på  et 
program,  så  vil  det  da  være  tjekket  at  bruge  nationalmelodien, 
ikke? 

Peter  Frost 

5  PRINT  CHRS ( 147f 

10  PRINT"  *»***»**»*»«**»*** 

###*##*" 

20  PRINT"  *  DER  ER  ET  YNDIGT 

LAND  #" 

30  PRINT"  #*»»**»**»*»***«** 

*******" 

40  A=54272:  FOR  B=1  TO  63 

: POKE  A+24 , 15 : READ  C:PGKE  A+5,15 
: POKE  A+6 , 240 : POKE  A , 24 
50  POKE  A  + 1 , C : POKE  A  +  4,33:READ  D 

: FOR  E= 1  TO  D* 1 00 : NEXT : POKE  A+4,32 
55  IF  B  =83  THEN  END 
60  IF  B=6  THEN  GOSUB  200 
70  IF  B  =  1 3  THEN  GOSUB  190 
80  IF  B=25  THEN  GOSUB  200 
90  IF  B=33  THEN  GOSUB  170 
100  IF  B  =  40  THEN  GOSUB  180 
110  IF  B  =  47  THEN  GOSUB  180 
120  IF  B=54  THEN  GOSUB  190 
130  IF  B=62  THEN  GOSUB  170 
140  IF  B  =  69  THEN  GOSUB  180 
150  IF  B  =  76  THEN  GOSUB  180 
160  NEXT  B 

170  FOR  E= 1  TO  1 50 : NEXT  E : RETURN 
180  FOR  E= 1  TO  200 : NEXT  E : RETURN 
190  FOR  E= 1  TO  400 : NEXT  E : RETURN 
200  FOR  E  = 1  TO  600:NEXT  E : RETURN 
210  DATA  15,2,23,6,23,2,19,4,15,4,25, 
8,  15, 2,  30, 6, 30, 2,  28, 4, 25, 4, 25, 4, 

22.4.22.4 

220  DATA  14,6,14,2,15,4,17,4,19,4,21, 
4, 22, 4, 25, 4, 22,  8, 21 , 8, 22, 6, 22, 2, 
28,6,28,2 

230  DATA  25,4,22,4,22,6,29,2,29,4,18, 

4.24.6.24.2.24.4.24.4.24.6.23.5, 

22.2.22.4 

240  DATA  21,4,20,4,19,4,25,4,30,6,30, 

2.28.2.25.2.25.4.22.8.14.5.15.6, 
22, 4,28,6 

250  DATA  28, 2, 25, 4, 22, 4,22,6,29, 2, 29, 
4,18,4,24,6,24,2,24,4,24,4,24,8, 
23,5,22,2 

260  DATA  22,4,21,4,20,4,19,4,25,4,30, 

6.30.2.28.2.25.2.25.6.22.10.14.6, 
15.  12 
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Ligningsloser 

Maskintype:  C64/C128/PLUS4/VIC20 
Gevinst:  1 00  kr. 

Står  du  og  skal  løse  en  'uløselig'  ligning.  Så  er  programmet  be¬ 
stemt  noget  for  dig.  Hvorfor??  Fordi  du  blot  indtaster  den  svære 
ligning  i  programmet,  og  efter  noget  tid  vil  computeren  fortælle 
dig.  hvad  løsningen  er. 

100  I NPUT"F l  X ) =  " ; FUNK  $ 

110  PRINT" (CLR) 140  DEF  FNA  t  X  i =  ";FUNK$ 

120  PR  I NT"RUN140" 

130  P0KE208, 3:P0KE842, 19:P0KE843, 13:P0KE844, 13:END 
140  DEF  FNA ( X )  =  5*XT2-3«X-55 
150  DO 

160  :  I  NPUT" l GUL,  3  DOWN ) NEDRE  GRÆNSE : " ; A I 
170  :  INPUT  "ØVRE  GRÆNSE  :";BI:  IF  B 1 =0 
160  :  FAST:  REM  *  SLÅR  40-TEGNS  SKÆRM  FRA 
190  :  RGDI=(A1#FNA(BI  ) -B 1 »FNA ( A I  )  )/(FNA(BI  ) -FNA ( A I  )  ) 
195  CHAR  1 , 10, 3:PRINTR0D1 

200  :  IF  FNA ( A I )  »FNA  t  ROD  1 )  >0  THEN  AI=R0D1 
210  :  IF  FNA ( A 1 )  »FNA ( ROD  1 )<=OTHEN  BI=RODI 
220  :  IF  ABS(FNA(RODI > )>0. 00005  THEN  190 
230  :  RDI  =  1  NT ( ROD  I » 1 E4+ . 5 ) / 1 E4 
240  :  SLOW 

250  :  SCNCLR : CHAR  1 , 1 O , 3 , "RODEN  ER:  " : PR  1 NTRD 1 
260  :  CHAR  1,10, 5, "NYE  GRÆNSER  (J/N)" 

270  :  GETKEY  W$ 

280  LOOP  UNTIL  W*="N" 


Programmet  benytter  sig  af  sekantmetoden,  og  det  betyder,  at 
du  skal  indsætte  minium-og  maksimumsværdi  forx.  Jo  større  in¬ 
terval.  des  længere  tid  bruges  der. 

Skal  du  bruge  programmet  til  andre  maskiner  end  Commo- 
dore128.  så  skal  du  sikre  dig.  at  kommandoerne  "FAST"  og 
'SLOW  samt  'Do'  og  "Loop"  findes  i  BASIC'en.  Ellers  skal  du  fjer¬ 
ne  disse  kommandoer  (det  betyder  kun.  at  programmet  er  lang¬ 
sommere). 

Leif  Hansen 


IF  A I =0  THEN 
THEN  B I = 10 


A  I  =1 


Swap  program 

Maskintype:  Amstrad  CPC464 
Gevinst:  100  kr. 

Har  du  altid  haft  problemer,  når  du  lige  skulle  udregne  noget, 
uden  at  ødelægge  det  program  der  netop  nu  ræser  linierne  igen¬ 
nem.  Eller  har  du  drømt  om  en  computer,  hvor  du  kunne  have 
flere  programmer  i  lageret  samtidig?! 

Kan  du  svare  ja  på  ovenstående  spørgsmål,  så  vil  dette  program 


lige  være  noget  for  dig,  for  programmet  gør  det  nemlig  muligt  at 
have  to  programmer  i  computeren  -  samtidigt! 

Programmerne  har  intet  med  hinanden  at  gøre.  og  det  betyder, 
at  du  kan  have  kaldt  en  variabel  A  i  begge  programmer  -  de  to 
variabler  vil  ikke  have  noget  med  hinanden  at  gøre.  Det  betyder 
igen,  at  du  blot  skal  programmere  som  normalt. 

Før  du  nu  begynder  at  taste  dine  egne  programmer  ind,  skal  du 
blot  vide.  at  en  CLEAR  vil  slette  ALLE  variablerl 
For  at  skifte  mellem  programmerne  skriver  du  SWAPPRG,  og 
straks  vil  du  arbejde  med  det  andet  program 


60  GOSUB  140 

70  MODE  i: INPUT  "Indtast  startadd.  paa  program  2: " , start : IF  startCO  THEN  start= 
65536+start 

30  IF  start< 1000  OR  start >40000  THEN  70 

90  tabe  1  =8<A63A :  DEF  FN  1  ( x > =UNT ( x )  AND  BcFF  :  DEF  FNh  l  a )  =  I  NT  (  a/ 256  )  AND  &FF 

100  POKE  tabel ,FN1 (start) IPOKE  t abe  1  +  1 , FNh ( s t ar t >  : POKE  t abe  1 +2 , FN  1  ( s t ar t +  303 )  : P 

OKE  tabel +3, FNh (start +303) 

110  FOR  a=4  TO  10  STEP  2:P0KE  t abe  1 +  a, FN  1  ( s t ar t  +  306 ) : POKE  tabel +a+l , FNh <start  +  3 
06) : NEXT 

120  CALL  6sA600:PRINT:PRINT:PRINT"øSWAPPRG  installeret" 

130  print:new 

140  check=0 

150  MEMORY  8<A5FF:FOR  a=&A600  TO  &A63B  :  READ  aS :  b=VAL  (  "  8c "  +aS)  :  POKE  a,b:check  =  chec 
k+b: NEXT 

160  IF  c  heck  <  >6053  THEN  PRINT  "Data  fejl  !  " : END 
170  RETURN 

180  DATA  3E , C9 , 32 , 00 ,A6,21,01,A6,01, OE , A6 , C3 , D 1 , BC , 1 3 , A6 , C3 , 1B,A6,53 
190  DATA  57, 41 ,50, 50, 52, C7, 00, 21 , 7B, AE, 1 1 ,36, A6, 06, 10, 1A, 4E, 77, 79, 12 
200  DATA  23,  13, 10, F7, 2A,  7B, AE, 22, 3D, BO,  22, 3F, BO, C9, FF, A5, FF, A5, 00, 00 


TAST  -  13 
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Commodore  64 

Leramin 


Er  du  en  svoren  tilhænger  af  laby¬ 
rinter?  I  dette  spil  er  du  Leramin. 
labyrintvandreren  over  dem  alle. 
Du  skal  udforske  en  stor  labyrint 
og  nå  så  langt  som  muligt  på  den 
tid,  du  selv  har  fastsat. 
Programmet  har  sine  egne  in¬ 
struktioner.  men  det  skal  lige  til¬ 
føjes.  at  diamanterne  giver  points, 
teleporteren  transporterer  dig  et 
andet  sted  hen  og  væggene  kan  du 
gå  igennem  efter  at  have  taget  "o". 
Brug  dit  joystick  i  port  II  og:  God 
rejsel 

Asger  £  Grunnet 


O  REM  ****************************** 


20  =  " 


1  REM  * 


2  REM  * 


3  REM  * 


LERAMIN 


4  REM  ****************************** 

*** 

5  REM 

6  PR  I NT "< CLR, GUL) " :SC*= "000000" 

: HI =2680 

10  DIM  A*<70):P0KE  53280,0 
! POKE  53281 ,0: T=400:SC=0 
: HI*= "002630 " :N*= "ASGER  E  G" 

1  1  A$(  1  )  =  " 


30  a$(6)  =  " mmmm  m 

s  m.  m" 

40  ak  7  )  =  “mmam  nmmmm  hls  mmmmmm 

m*M  h 

so  a*<  s )  =  ••  mmæm s  mm  m  mm  m 
m  m  m  m  m  mmm.  *" 

60  a*< 9)  =  "ss88*b»  mm  »  mmmmmm 
mmm  m  mm  m  m 
70  as*  io)  =  "mæimm  «  mm.  wmmmt 

»55  »|  " 

30  a*<  1 1  )  =  "i««6*arøæ  is  s  mm 

mmm  mm  w." 

so  a*<  i  £ )  =  mmmm  m  mmm  «  mmmmmm 

jaså:  Si.  m  B— B— i  M— — 1  S" 

ioo  a*<  13)  =  “sia»«siif?  mm  mmm 
m  mm  m  m  m" 

no  a*<  i4)  =  "s*H®®si»  »»»»»«  i mmmm 

120  a$<  i5)  =  "iæ«rø^  mm  mmmm 

ti  -g  i«  «'• 

130  a$<  i6)  =  "ia^i®sii  s  m  mm  m  m  »tid 
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140  A*(  17)  =  " 

'5?  5S-  i««Si 

150  A*(  13)  =  " 

'"'i-:  v£?jSlS'. 

*W>/wJ»)vwX  vwTwWv 

160  A*(  19)  =  “ 
£1 

170  A*(20)  =  " 


130  A*C  21  )  =  " 

il  m 

190  A*(22)  =  “ 


mm  m  m  m  m 
m  m" 

»  H  I  S  1  SgrøæSS 

#  c" 

##*#«*#♦  * 

æ  s  *" 

m  m  m  m  m  m  mm 


240  fi*<27)  =  "mmmm  m  m  m 

m  m  m  m  w" 

250  a*(  28)  =  "mmmm  m  mm  mmm mm 

m |  W&$  jg  g|  g" 

260  A*<  29  )  =  “  lISHiiiSfi  IC  X 

mmm  mmm  mmm1 
270  a*(  30  )  =  "«■#■#  m  mm  mmm 


230 

A*<  31)  =  ’ 

m 

i 

m  m 

®  m 

« 

m 

mi  mil  ii 

K  #  S" 

290 

A*(  32  )  =  " 

1 11111111111138) 

1 

M 

il 

m 

m  m 

#  m 

1 

m  m" 

300 

A*(  33)  =  ' 

iwmmm 

1 

m 

m  mmm 

mo  m  m  m" 


310  A*(  34)  =  " 
320  A*<  35  )  =  " 


330  A*(36)  =  " 
340  A*C37)  =  " 


350  A*C38)  =  " 
360  A*(39)  =  " 


370  LE  = 1 4 : LA  = 1 9 : S*= "00 "  : L  I  V=3 
330  PR  I NT " <  HOME , CRSR  NED, 

SPACE)/ — \  LERAMIN 

390  PRINT"  I 

400  PRINT"  \ _ /OMPU  UiRITTEN  BY  AS6 

ER  E  GRUNNET 
410  PRINT"  SOFTWARE 

420  PRINT"  FOR  COMPU-SOFT 

WARE 

430  PRINT"CCRSR  NED, SPACE  12) 

iii» 


440  PR  I  NT 11  (  CRSR  NED2, SPACE)#  =  WAL 

L  (CAN'T  DESINTGRATE) 

450  PRINT"  ♦  =  TELEPORTER 

460  PRINT"  •  =  D I AMOND 

470  PRINT"  L  =  NEW  TIME 
430  PRINT"  |+-  =  WALLS  < DES INTGRATES 
WITH  O) 

500  PR INT"< CRSR  NED ,SPACE6 )PRESS 
C RVS  0N)SPACE(  RVS  OFF , 

SPACE3 )F0R  START  ! ! 

501  PR INT"(  CRSR  NED , SPACE  10 )F 1  =  TIM 
E-ADJUSTING" 

502  PR INT"(  CRSR  NED , SPACE  14 )TIME  ="T 

503  PR  I  NT 11  (  CRSR  NED  )SCORE 

: "SC*"  HISCORE: "HI*"  “N* 

504  FOR  1=1  TO  750 

505  IF  PEEKC  137)=4  THEN  770 
510  IF  PEEKC  197 ) =60  THEN  520 
515  NEXT : GOTO  910 

520  PR  INT"(  CLR  )  " 

530  PRINT"  /— \  (RVS  ON) 

r  ( RVS  OFF)r 

540  PRINT"  |  (RVS  ON)T 

(RVS  OFF)r 

550  PRINT"  S _ /OMPU  (RVS  ON)T 

(RVS  OFF>r 

560  PRINT"  (RVS  ON)F 

(RVS  OFF)r 

570  PRINT"  SOFTWARE  (RVS  ON)T 

(RVS  OFF)F 

580  PRINT"  (RVS  ON)T 

(RVS  0FF)r  ERAMIN" : T I *= "000000 " 

535  X= 19 : Y= 14 

530  PR  I NT "(  HOME, CRSR  NED8 ) " 

:  FOR  I  =LE  TO  LE+9  :  L*(  I -LE  )  =MID*(  A 
*(  I  )  ,LA,  10)  SNEXT  I 
595  A*(  16)  =  "«MMMMI  «»«##»  #TID 
: " +MI0*(  TI*,3 ,4 )  +  “#  #  m  MOBSffi 

m  m" 

536  K*  =  TI*:  I=VAL(  K*) 

597  IF  I  =  >T  THEN  PRINT  "(CLR, 

CRSR  NED  10 , SPACE  10 ) TIDEN  ER  UDLOB 
ET  !  ! " :PRINT"(  CRSR  NED ) "TAB(  14 )SC 

598  IF  1  =  >T  THEN  FOR  1  =  1  TO  2000: NEXT 
.'GOTO  1040 

600  FOR  1=0  TO  9 : PR  I NT  TABC14)L*CI) 

: NEXT  I 

601  IF  PEEK(  1 603  )  =8 1  THEN  670 

602  IF  PEEK( 1603) =12  AND  IT<3  THEN  T 
I*= "000000" : I T= I T+ 1 :SC=SC-50 

: GOSUB  890 

603  IF  PEEK( 1 603 ) =67  OR  PEEK( 1603)=6 
6  THEN  LA= 19 : LE= 14 : GOTO  590 

605  POKE  1603,91 :J=PEEK( 56320) 

607  IF  PEEK(  197 )  =4  THEN  PRINT“(CLR)" 

: GOTO  380 

610  IF  J= 1 23  AND  PEEK(  1602 X  >  102  THE 
N  LA  =  LA-  1  :  IF  LA<  2  THEN  LA=2 
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620  IF  J  = 1 1 9  AND  PEEKC 1604 X > 102  THE 
N  LA  =LA  + 1 :  IF  LA  >44  THEN  LA=44 
630  IF  J  = 1 26  AND  PEEKC 1563 X > 102  THE 
N  LE  =L£ - 1 :  IF  LE<  1  THEN  LE  =  1 
640  IF  J  =  125  AND  PEEKC  1643 X  > 102  THE 
N  LE=LE+  1  s IF  LE  >33  THEN  LE =33 
645  IF  PEEKC 197)=60  THEN  I*=TI* 

! PR  I NT " C CRSR  NED2 ,SPACE6  )PAUSE " 

: SC=SC- 1  s  GOTO  870 

650  IF  LA= 15  AND  LE=14  THEN  LA=41 
:  LE  =  1 

651  IF  LA =41  AND  LE =2  THEN  LA=15 
:LE  =  15 

652  IF  LA= 10  AND  LE=31  THEN  850 

653  IF  LA=39  AND  LE=32  THEN  860 
660  GOTO  590 

670  PR INT"(  CLR ,CRSR  NED3 , 

SPACE6 )CONGRATULATIONS  ! ! ! 

680  PR I  NT  "C  CRSR  NED2 ,SPACE4 )AT  LAST 
YOU  FOUNO  THE  EXIT. 

690  PR  I  NT  "(CRSR  NED  ,  SPACE  10  )/ -  f\ 

700  PRINT  "  I  I  \  II  I 

710  PRINT  "  I -  I  \  I  I  I 

720  PRINT  "  I  I  \|  I  I 

730  PRINT  “  \ _  I  I  I _ / 

740  PR  I NT "(  CRSR  NED2  ,SPACE3 )PRESS  <R 
VS  ON)SPACE(  RVS  OFF, 

SPACE  )FOR  CONTINUE" 

741  IF  SC<0  THEN  SC=0 

745  K*=TI*:PRINT"C CRSR  NED2 , 

SPACE4  )TIME  :  ")K* 

746  PR INT“(  CRSR  NED ,SPACE4 JSCORE :  " i SC 

748  PR INT" <  CRSR  NED ,SPACE3 )PRESS  < RV 
S  0N)F2C  RVS  OFF, SPACE )T0  RESET  CO 
MPUTER" 

749  GET  LI* :  I F  Ll*=  “<  F2  )  "THEN  1100 

750  IF  PEEKC  197 X  >60  THEN  749 
760  GOTO  1040 

770  PR INT"< CLR ,CRSR  NED2 , 

SPACE7 ) JOYST ICK  IN  PORT  #2  !!" 

775  PR INT" (  CRSR  NED4 , SPACE  13, 

RVS  ON)SPACE(  RVS  OFF, 

SPACE) TO  CONTINUE" 

730  PR INT" < HOME , CRSR  NED4 ,SPACE2 )TIME 
: " ) T"( CRSR  VENSTRE, SPACE ) " 

790  IF  PEEK.(  56320)  =  123  THEN  T=T-10 
800  IF  PEEK( 56320 ) = 1 1 9  THEN  T=T+10 
810  IF  PEEK< 56320) =126  THEN  T=T-1 
820  IF  PEEK( 56320 ) = 125  THEN  T=T+1 
830  IF  PEEK( 197) =60  THEN  PR INT*< CLR ) “ 
i  GOTO  380 

832  IF  T< 1  THEN  T=1 
834  IF  T >999  THEN  T=999 
840  GOTO  780 

850  a*<  32 )  =  ■■  mmmmm  mm  m  m  *  m  m 
mm  mm  mm" 


855  a*c  36 )  =  "mmmmm  mm  m 

m  m  m  m  m  m  mH 

: GOTO  590 

860  a*c  34 )  =  “mbhi  mm  m  m 

m  m  m  mmmmm  m" 

865  A*C  37)=  ■■■■■■■■ 

.mmmmmasmmasam  m  m  m  m- 

: GOTO  590 

870  IF  PEEK( 56320 X >127  THEN  PRINT"< 
CRSR  OP , SPACE 12)M:TI*=I*: GOTO  590 
880  GOTO  870 

890  A*(  LE+5)=MI0*(  A*(  LE +5)  ,  1  , 

LA  +4  )  + 11  “+MID*(  A*(  LE+5)  ,LA+6, 

LEN(  A*C  LE  +5  )  )  -<  LA  +6  )  ) 


895 

IF  SCCO  THEN  SC=0 

900 

RETURN 

910 

PR  I  NT  “C  CLR)  “ 

320 

Q  *=  " 

LERAM IN 

HAS  UR  I  TTEN  BY 

ASGER  GR" 

930 

Q*=Q*+ "UNNET ,FOR  1 

COMPU  SOFTUARE. 

M 

940 

PRINT" 

/~\ 

350 

PRINT" 

1 

960 

PRINT" 

N _ /OMPU 

970 

PRINT" 

SOFTUARE 

975 

PRINT 

980 

PRINT" 

PRESENTS : 

985 

PRINT 

390 

PRINT" 

/ 

995 

PRINT" 

/  ERAMIN 

996 

PRINT" 

—  -T.  C 

RSR  NED) 

997 

.<  CRSR  NED2  )  " 


1000  PR  I  NT  "(  CRSR  0P2  ,  SPACE  )  |“MID*(  Q*, 
1  ,37) "| <  CRSR  NED) * 

1005  PR INT"(  CRSR  0P2,SPACE2) - 


1010  Q*=MID*<  Q*,2,LEN(  Q*)-l  )+MID*(  Q*, 
1,1): FOR  1=1  TO  10 : NEXT 
1020  IF  PEEKC  197)=60  THEN  PRINT"(CLR 
)  "  : GOTO  520 
1030  GOTO  1000 

1040  IF  SC>HI  THEN  HI=SC:GOTO  1060 

1045  SC*=MID*(  STR*(  SC)  ,2, 

LE  NC  3TR*C  SC  )  )  -  1  )  :K*=  "000000" 

1046  SC*=MID*(  K*,  1  ,6-LEN(  SC*)  ) +SC* 
1050  PR  I NT " C  CLR ) “ : GOTO  370 

1060  PR INT"(  CLR ) " : OPEN  1,0 

1065  HI*  =  MID*(  STR*C  HI  )  ,2, 

LENC  STR*C  SC  )  )  -  1  )  :  K*=  "000000  " 

1066  H  I  *  =  M  I  D*C  K*,  1  ,6 -LENC  HI*)  )+HI* 
1070  PR INT" C  CRSR  NED7 ,SPACE2 )NAVN:  *  ; 
1080  INPUT# 1 ,N*: IF  LENC N*) >10  THEN  N 

*=MID*(  N*, 1,10) 

1030  PR  I NT” C  CLR ) " : GOTO  370 
1100  SYS  64738 
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Commodore  64 

Fruit  Tree 


"Fruit  Tree"  er  arcade-action  på  et 
plan.  der  liggertæt  op  ad  det.  du  er 
vant  til  fra  spillehalleme.  Kvalitet! 
I  spillet  er  du  en  lille  lastbil  med  to 
liv.  Du  skal  samle  frugt  sammen, 
som  falder  ned  fra  et  stort,  stort 


træ.  Allervigtigst  er  det.  at  du  får 
grebet  de  nedfaldende  kartofler 
og  de  nedfaldende  cola-dåser  (yep, 
det  er  et  meget  mystisk  træ).  Hvis 
cola-dåserne  og  kartoflerne  når 
jorden,  mister  du  et  liv.  hvilket  du 


kan  se  på  farven  af  rammen. 

Og  et  lille  tip:  Trykker  du  på  fire. 
mens  du  kører,  får  du  mere  fart  på 
din  lille  lastbil... 

Peter  Marino 


10  REH 

EØ  POKE  5E , GØ : CLR : FOR  T-0  TO  9 

: H$CT)- "DISPLAY” : HCT)-1800-T*100 

: NEXT: PS- ” . ” 

70  IF  PEEKC49152)-254  THEN  190 
BØ  PRINT”CCLR,CRSR  NED2 , 

CRSR  HØJRE2)PLEASE  HANG  ON  FOR  AP 
ROX .  1.5  f1IN”CHR$CB) 

BØ  PR I NT ” C  CRSR  NED, CRSR  HØJRES 3READI 
NG  DATA  . . AD-834 
100  AN-4 : GOSUB  120 : AD-154BB : AN-26 
: G05UB  120: AD-4S152: AN-17 
: GOSUB  120: AD-50432 
110  AN-1: GOSUB  120: GOTO  1BØ 
120  FOR  T-0  TO  AN: READ  X$,CH 
: FOR  X-l  TO  LENCX$)STEP  2 
: AS-niDSCXS ,  X  ,  1 )  : GOSUB  170: E-U*16 
130  A$-niD$CX$,X+l,l):GOSUB  170 : E— E+V 
: POKE  AD , E : AD-AD+1 : C-C+E : NEXT  X 
140  IF  C-CH  THEN  C-0:NEXT  T : RETURN 
150  PRINT”CCRSR  NED2.RUS  ON)?ERROR  I 
N  DATA”: PRINT”CCRSR  NED, 

BLAA )L I ST ”PEEK  C  63  5  +PEEK  C  E4 ) *256” C 
CRSR  0P3 , L . BLAA) ” : POKE  1SB.1 
160  POKE  631, 13: END 

170  U-ASCCA$)-48+7*CA$> ”9”)  : RETURN 
1BØ  Sl-54272: S2— Sl+7 : FOR  T-Sl  TO  S1  + 
28: POKE  T , 0 : NEXT 
190  SYS  49625 : NC-50432 : B0-532BØ 

: I N-532B1 : JS-56320 : F-242 : U-5324B 
200  FOR  X-2040  TO  2047: POKE  X,0 
: NEXT  X : POKE  B32,0:P0KE  833,0 
: NS- ” ” : FOR  T-0  TO  7 
210  POKE  U+T*2 , 0 : NEXT  T:POKE  U+21,0 
: POKE  U , 22S : POKE  U+1,229 
: POKE  U+2B, 255: POKE  U+37,9 
220  JO-0 : A— 0 : FOR  Y-3  TO  15  STEP  2 
: POKE  U+Y, A: A-A+35: NEXT  Y 
: POKE  2040,254 

230  POKE  U+29 , 1 : DUNriY-PEEKCU+30) 

: POKE  U+39 , 0 : POKE  U+3B , 7 : GOTO  490 
240  POKE  SI  + 1,0: POKE  S1+4,0:P0KE  IN, 6 
: POKE  BO, 0: GOSUB  270 : POKE  U+21,255 
250  SYS  MC : I F  PEEKC532BØ)<>242  THEN 
250 

260  POKE  U+21,0: GOTO  970 


270  PRINT”(CLR, GRØN, RUS  ON, 

SPACE?«*  i  «*  S 

C  BRUN, SPACE, 

GRØN , SPACE7 , BRUN , SPACE , GRØN  , 
SPACE2)”; 

280  PRINT”  C BRUN, SPACE, GRØN, 

SPACE6 , BRUN , SPACE , GRØN , SPACE14 , 
BRUN , SPACE , GRØN , SPACE7 , BRUN , SPACE , 
GRØN , SPACES , BRUN , SPACE , GRØN , 

SPACE5 , BRUN , SPACE , GRØN) ” ; 

290  PRINT”  **  CBRUN, 

SPACE, GRØN, SPACE4)!  CBRUN, SPACE, 
GRØN,  SPACE5)**  «  CRUS  OF 

F)"  C RUS  ON , SPACE16) ” ; 

300  PRINT”  MCRS 

R  HØJRE2) ” ; 

310  PRINT”  CBRUN),  CRUS  O 

FF), CRUS  ON , GRØN , SPACE3 , 

RUS  OFF)" CBRUN)  "CRUS  ON)"CGRØN, 
SPACE3 , RUS  OFF)" CBRUN, 

RUS  ON) I  CORANGE)!  CCRSR  HØJRE, 
GRØN), C ORANGE, RUS  OFF)«CRUS  ON, 
SPACE, RUS  OFF)" C GRØN)- ” 

320  PR I NT” C  RUS  0N,SPACE2)i  I  CRUS 
OFF )• V  CBRUN)  "CRUS  ON  ,  SPACE2 , 

RUS  OFF,  ORANGE),  CGRØN)""  CBRUN)  *C 
RUS  ON,  SPACE)  *C ORANGE, 

RUS  OFF)«  CBRUN, RUS  ON)|  CORANG 
E)8  CRUS  OFF)|  CBRUN)  .CORANGE, 

RUS  ON, SPACE, RUS  OFF)"” 

330  PR I NT” C  RUS  ON, GRØN, 

SPACE ) «*C RUS  OFF)"  ■  CRUS  ON),  CRUS 
OFF)"  CBRUN)  "CRUS  ON,  SPACE2, 

RUS  OFF, ORANGE),  CBRUN)  "CRUS  O 
N, SPACE6, ORANGE)*  CRUS  OFF)"” 

340  PRINT" C GRØN)  ■  ■  CBRUN 

)  "CRUS  ON  ,  SPACE6  ,  RUS  OFF),  "CRUS  O 
N)  *#  CORANGE,  SPACE)” 

350  PRINT  TABC20)  "CBRUN)  "CRUS  ON, 
SPACE7 ) *  C  ORANGE , SPACE ) ” 

: PR I NT  TAB  C  23) ” C  BRUN , RUS  ON, 
SPACE5) i CORANGE)! ” 

360  PRINT  TABC23)  "CBRUN)  "CRUS  ON)« 
i CORANGE)! ”: PRINT  TABC24 )” CBRUN , 
RUS  ON , SPACE4 ) ! C  ORANGE ) ! ” 

: PR I NT  TAB C  24 ) ” C  BRUN , RUS  ON, 
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SPACE4)*  CORANGE)*  CRUS  OFF).” 

370  PRINT  TAB C 24 )  ”  C BRUN , RUS  ON , 

SPACE)*  *  C ORANGE, SPACE, RUS  OFF)  I ” 
:PRINT  TAB  C  24  )  ”  C  BRUN , RUS  ON , 

SPACE 3*  C ORANGE, SPACE, RUS  QFF)| ” 

3BØ  PRINT  TAB C 24 3 ” C BRUN , RUS  ON, 

SPACE  3  i  C  ORANGE)*  |” 

390  PRINT  TAB C 23) ” C BRUN , 

RUS  ON)|  I  CORANGE)* CRUS  OFF )■ ” 

: PR I NT  TAB C 23) ” C BRUN , 

RUS  ON ) |  |  CORANGE)*” 

400  PRINT  TAB  C  23 ) ” C  BRUN , 

RUS  ON ) |  *  CORANGE)* CRUS  OFF)| ” 

: PRINT  TABC23) ”CBRUN, 

RUS  ON)|  31  CORANGE,  RUS  OFF)|” 
410  PRINT  TAB  C  23 ) ” C  BRUN , RUS  ON , 
SPACE2)S&  CORANGE)  |” 

:  PR  I  NT  TABC20)  ”CBRUN)  .CRUS  ON  , 
SPACE4)*  CORANGE, SPACE)” 

420  PRINT  TABC 16) ”CBRUN)  »CRUS  ON, 
SPACE8)«  *  CORANGE, SPACE, 

RUS  OFF), ” 

430  PR I NT ” C  BRUN , SPACE4 ) «( RUS  ON , 
SPACE, RUS  OFF).  *CRUS  ON , 
SPACE5 ) om  *  *  CRUS  OFF)«* 

C  ORANGE )«C  HOf*1E  )  ” 

440  IF  QW-1  THEN  FOR  T-0  TO  200 
: T— T+  C 200  AND  PEEKC56320)-111 ) 
:NEXT:QU)-0:  RETURN 
450  PRINT  TABC31)”C CRSR  NED7 , 

GUL)  , - ,”:FOR  Y-l  TO  B 

: PR  I NT  TABC31 ) ”  |  |”:NEXT  Y 

460  PRINT  TABC 31 )  ”  •> - M - *» 

: PRINT  TAB  C  34 ) ”  |  1 - ” 

: PRINT  TABC34) ”  1 - ” 

470  PR I  NT ” C  HOME ) ” TAB C  32 ) ” C  CRSR  NED10 , 
CYAN ) SCORE  C  CRSR  NED2 , 

CRSR  UENSTRE5 , HU I D )0 ” 

4BØ  PRINT  TAB C 32) ” C CRSR  NED, 

CYAN) JOHN  &CCRSR  NED2 , 

CRSR  UENSTRE6)PETER”: RETURN 
4SØ  POKE  2,0:SYS  B34 : PRINT" CGRØN , 

CLR ) ” : POKE  6B2 , S : POKE  681,0 
:POKE  6B3 , 2 : POKE  2,1:QW-0 
500  A$ C  0  )  —  ”  CRUS  ON)*«*CRUS  OFF 

)■  C  RUS  ON  )  ■  *  ,C  RUS  OFF)  ,C  RUS  ON)  , 
CRUS  OFF,  SPACE)  ,C RUS  ON)  ,CRUS  OFF 

)  "CRUS  ON),  ■( RUS  OFF)  *CRUS  ON)« 

» 

510  ASC1)-”  CRUS  ON)«  »CRUS  OFF)« 
CRUS  ON ) ■  “CRUS  QFF)«CRUS  ON)  ,CRU 
S  OFF)  ,C RUS  ON)  ,CRUS  OFF, 

SPACE)  ,C RUS  ON)  ,CRUS  OFF, 

SPACE)  ,C RUS  ON)  ,CRUS  0FF,SPACE3, 
RUS  ON)* CRUS  OFF)«” 

520  A$ C  2  )  -  ”  CRUS  ON)*CRUS  OFF)* 

CRUS  ON )  *  C  RUS  OFF)*|  ,CRUS  ON)  ,CR 
US  OFF,  SPACE)  ,C RUS  ON)  ,CRUS  OFF, 


SPACE)  ,C RUS  ON)  ,CRUS  0FF,SPACE3, 
RUS  ON)*  CRUS  OFF)*  ” 

530  ASC3)-”  CRUS  ON)*CRUS  OFF)*  C 
RUS  ON)*  CRUS  OFF)*  CRUS  ON)*CRUS 
OFF,  SPACE,  RUS  ON).CRUS  OFF)*CRUS 
ON)  ,C RUS  OFF)  «C RUS  ON,  SPACE, 

RUS  OFF)«  CRUS  ON)*CRUS  OFF)*” 

540  ASC4)-”  *C RUS  ON)«  *CRUS  OFF)  ,C 
RUS  ON)  «i  CRUS  OFF)*  CRUS  ON)**,C 
RUS  OFF)  .CRUS  ON)  ««CRUS  OFF)*” 

550  A$C5)“”  CRUS  ON)*CRUS  OFF)*  ,CR 
US  ON, SPACE, RUS  OFF)«CRUS  ON)*CRU 
S  OFF)*  CRUS  ON)*  »CRUS  OFF)«  ,CRUS 
ON,  SPACE,  RUS  OFF)*” 

560  ASC6)-”  CRUS  ON)*CRUS  OFF)*  ,CRU 
S  ON)  JCRUS  OFF , SPACE2 , 

RUS  ON)*  CRUS  OFF)*  ,CRUS  ON),CRU 
S  OFF , SPACE5) ” 

570  A$C7)-”CRUS  ON)*CRUS  OFF)*  .CRUS 
ON)  .CRUS  OFF,  SPACE, 

RUS  ON)|  CRUS  OFF).  CRUS  ON)*  *CRUS 
OFF)*  .CRUS  ON,  SPACE,  RUS  OFF)*  ” 
5BØ  POKE  Sl+5 , 0 : POKE  Sl+6,240 
: POKE  Sl+4, 17 

590  POKE  S2+5 , 0 : POKE  S2+6.9 

: POKE  52+1,19: POKE  S2+4.12B 
600  FOR  T-2  TO  44: POKE  6B3,T:NEXT 
: FOR  X-0  TO  3: PRINT 
610  FOR  T-l  TO  LEN  C  A$  C  X ) ) 

: POKE  Sl+1, 10+ABSC21-T) 

620  PR I NT” C CRSR  OP) ”RIGHT$C A$CX) , T) 

: NEXT  T : POKE  681 , 1 : POKE  S2+4.128 
: POKE  S2+4, 128: POKE  681,0 
630  NEXT  X : POKE  S1+1,0:PRINT 

: FOR  T-45  TO  88: POKE  683, T: NEXT 
640  FOR  X-4  TO  7:ASCX)“” 

”+A$  C  X ) : PR I NT 
650  FOR  T-l  TO  LENCASCX)) 

: PR  I  NT” C CRSR  OP) ”RIGHT$C A$CX) , T) 

: POKE  Sl+1 , 30+ABSC29-T) 

660  NEXT  T.-POKE  681,1:  POKE  S2+4.129 
: POKE  S2+4, 128: POKE  681,0: NEXT  X 
: POKE  Sl+1 , 0 : 

670  FOR  T-BS  TO  180: POKE  683, T 
680  NEXT: FOR  T-1B9  TO  4  STEP-1 
: POKE  683 , T : NEXT  T:POKE  682,6 
:FOR  T-4  TO  88: POKE  683 , T : NEXT  T 
680  FOR  T-50  TO  150: POKE  678, T: NEXT  T 
: FOR  T-151  TO  50  STEP-1: POKE  678 , T 
: NEXT  T 

700  POKE  S2+4, 128: POKE  S2+4,128 
710  PRINT” CCRSR  NED, RØD, 

CRSR  HØJRE) - 


720  PRINT”CBLAA)  «  .CCRSR  HØJRE)..*  C 
CRSR  HØJRE)«  ..  ” 

730  PRINT”! . C  RUS  ON, SPACE, 

RUS  OFF)|  CRUS  ON).CRUS  OFF)|CRUS 
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□N, SPACE, CRSR  HØ JRE2 , SPACE  , 

RUS  OFF)|V  *” 

740  PRINT”  -■■■■ CRUS  ON).CRUS  OFF)*  C 
CRSR  HØJRE,  RUS  ON).CCRSR  HØJRE, 

RUS  OFF)  ■  ■” 

750  PRINT  TAB C  14) ”CGUL , CRSR  DP3 , 

CRSR  HØJRE, RUS  ON)  .CRUS  OFF). CRUS 
ON)  .CRUS  OFF)* CRUS  ON). CRUS  OFF) 
■CRUS  ON)  .CRUS  OFF)*  CRUS  ON)  .CRUS 
OFF). CCRSR  HØJRE, RUS  ON)  "CRUS  OF 
F)  J  C  RUS  ON)*  CRUS  OFF).CRUS  ON)  .C 
RUS  OFF  ).  |  C  RUS  ON)  ^  CRUS  OFF)  .CRU 
S  ON)  ■” 

760  PRINT  TAB C  14) ” C CRSR  HØJRE, 

RUS  ON)  "CRUS  OFF)*  CRUS  ON)  .CCRSR 
HØJRE)| CCRSR  HØJRE)  .CCRSR  HØJRE)* 
CRUS  OFF)* CCRSR  HØJRE, 

RUS  ON)  ..CRUS  OFF )|  CRUS  ON)  *CRUS 
OFF  )|  C  RUS  ON)  *CRUS  OFF)*|CRUS  ON) 

.  I "  ” 

770  PRINT  TAB C  14) ” CCRSR  HØJRE)* CCRSR 
HØJRE,  RUS  ON).CRUS  OFF)*  "CCRSR  H 
ØJRE.RUS  ON).CRUS  OFF)*** CCRSR  HØ 
JRE)*  CCRSR  HØJRE)*******  "CCRSR  HØ 
JRE)* ” 

780  PRINT”CBLAA)  ..CCRSR  HØJRE)  .CCRS 
R  HØ  JRE  ). C  CRSR  HØJRE)...  .  .CCRSR 
HØJRE)  .  ..” 

7SØ  PR I NT ”|. CRUS  ON, SPACE, 

RUS  OFF)* CRUS  ON, SPACE, 

RUS  OFF) |  CRUS  ON)  "CRUS  OFF)*  CRUS 
ON, SPACE, RUS  OFF)||| CCRSR  HØJRE)S 
CCRSR  HØJRE, RUS  ON)|  CRUS  OFF)  *CR 
US  ON)VRUS  OFF,  CRSR  HØJRE)*” 

800  PRINT”- . -"CCRSR  HØJRE) 

-CCRSR  HØJRE)* CCRSR  HØJRE)*” 

B10  PRINT  TAB  C  10)  ”  C  CYAN)*  .CCRSR  HØJ 
RE)...  .CCRSR  HØJRE)  .CCRSR  HØJRE)  . 
..CCRSR  HØJRE)..  .  h  .CCRSR  HØJREB) 
...CCRSR  HØJRE).” 

BBØ  PRINT  TAB C  10) "CCRSR  HØJRE)|CRUS 
ON)  .CRUS  OFF)|  CRUS  ON)  "CRUS  OFF)| 
CRUS  ON, SPACE)* CCRSR  HØJRE)|  ■  II* 
CRUS  OFF)* CRUS  ON)  *J  CRUS  OFF).CR 
US  ON)| CCRSR  HØJRE, 

RUS  OFF)  % CRUS  ON)|CRUS  OFF). CRUS 
ON) |  "CRUS  OFF)|  ” 

830  PRINT  TABC 10 ) ” C  RUS  ON). CRUS  OFF) 
■CRUS  ON). CRUS  OFF)* 1 1 1 C  RUS  ON). C 
CRSR  HØJRE)|  CRUS  OFF)  *C RUS  ON)||| 
CRUS  OFF)  II CRUS  ON). | CRUS  OFF).C 
RUS  ON)|  CRUS  OFF). .CRUS  ON)^CRUS 
OFF). C RUS  ON ) | C  RUS  OFF)  1  ” 

840  PRINT”CDRANGE) _ 

»  , 

: POKE  Sl+24,5 

850  PRINT ” C  RUS  ON , SPACE8 ) PRESS  <FIRE 
>  TO  START  . . .  CHONE) ” 


T 

T 


: TI S- ”000000” 

BBØ  FOR  T-BB  TO  4  STEP-B 

: POKE  B78, 6+CB8-T/B) : POKE  683  T 
: GOSUB  S30 : POKE  Sl  +  1  T/B ■ NEXT ' 

870  IF  JO-1  THEN  960 
880  POKE  6BB , RNDC 1 )*15+1 
: FOR  T-B  TO  8B  STEP  B 
: POKE  873, 6+C8B-T/B) ; POKE  683 
880  GOSUB  330: POKE  Sl+1  T/B- NEXT 
900  IF  JO=l  THEN  360  ’  ' 

910  IF  TI$> ”000007”THEN  POKE  B  0 
:  POKE  Sl  +  1 , 0  :  QUI-1  :  GOSUB  1140 
: GOTO  430 
9BØ  GOTO  860 

930  IF  PEEKC JS)<> 111  THEN  RETURN 
940  JO-1  .-POKE  Sl+24, 15:  POKE  681,1 
: POKE  SB+4, 129: POKE  S2+4.1BB 
: POKE  681,0 
950  RETURN 

960  POKE  2,0: GOTO  B40 
370  POKE  Sl+4 , 0 : POKE  B,0:SYS  834 
: POKE  6B2 , 2 : POKE  681,0 
: SC-PEEKC832)+PEEKCB33)*256 
380  POKE  SB+6 , 240 : POKE  Sl+4, 17 
: POKE  SB+4, 17 

930  PRINT”CCLR, RØD, CRSR  NED7) ” 

; SS— ”  " : POKE  B, 0 

: POKE  673, 43: POKE  683,205: POKE  B,1 
1000  POKE  1000, PEEKCB32) 

:POKE  1001 , PEEKCB33) 

1010  PRINT  SS” C RUS  ON)*  .  CRUS  OFF).  . 
CRUS  ON,  SPACE).  "CCRSR  HØJRE, 

SPACE2 , RUS  OFF). CRUS  ON)*  CRUS  OF 
F )| C  RUS  ON) |  .  ” 


10BØ  PRINT  SS ” C  RUS  ON, SPACE, 

RUS  OFF)| CCRSR  HØJREB, 

RUS  DN)|  |  CCRSR  HØJRE , SPACE5 , 

RUS  QFF)| CRUS  ON)|  CRUS  OFF).” 

1030  PRINT  SS” C RUS  ON, SPACE, 

RUS  OFF)| CRUS  ON). CRUS  OFF)|CRUS 
ON)|  .  CCRSR  HØJRE, SPACE, 

RUS  OFF ) | C  RUS  ON). CRUS  OFF)* CRUS 
ON, SPACE, RUS  OFF)| CRUS  ON)|  .CRUS 
OFF)*  ” 

1040  PRINT  SS ” C  RUS  ON).  -  CRUS  OFF)|C 
RUS  ON) |  |  CCRSR  HØJRE, SPACE, 

RUS  OFF)| CCRSR  HØJREB, RUS  ON, 
SPACE, RUS  OFF )| CRUS  ON)|  ■  ” 

1050  PRINT  S$”CCRSR  NED, SPACE, 

RUS  ON)*  .  CRUS  OFF). CRUS  ON)|  I  C 
CRSR  HØJRE, SPACE)  .  CRUS  OFF)| CRUS 
ON) |  .  ■” 

1060  PRINT  SS”  CRUS  ON, SPACE, 

RUS  QFF)| CRUS  ON, SPACE, 

RUS  OFF)| CRUS  DN)|  I  CCRSR  HØJRE, 
SPACE, RUS  OFF)|  .CCRSR  HØJRE, 

RUS  ON) |  |  ” 

1070  PRINT  SS”  CRUS  ON, SPACE, 
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RUS  DFF)| CRUS  DN, SPACE, 

RUS  DFF  )| C  RUS  0N)|  I  CCRSR  HØJRE, 
SPACE)  **CCRSR  HØJRE)|  -CRUS  DFF)" ” 
1080  PRINT  SS”  CRUS  DN).  ■  CRUS  OFF)" 
■CRUS  ON).  MC CRSR  HØJRE, 

SPACE)"  CRUS  OFF)| CRUS  QN)|  CRUS 
□FF)  "C RUS  DN)  ■” 

1090  FOR  T-49  TO  149  .-PDKE  S7S,T 
: PDKE  6B3,254-T*2+47 
: PDKE  Sl  +  1 , 100-T/2 

1100  PDKE  S2+1 , 14S-T : PDKE  S2+1 , 14S-T 
: NEXT : PDKE  S2+1,0:PDKE  S2+4 , 0 
: PDKE  Sl+5,0 

1110  PDKE  Sl+6 ,11: PDKE  Sl+1, 50 
: PDKE  Sl+4, 128: PDKE  Sl+4,129 
1120  PDKE  Sl+4, 12B:PDKE  682,7 
: FOR  T-150  TD  110  STEP-1 
: PDKE  679 , T : PDKE  683 , 254-T*2+49 
1130  NEXT : FDR  T“1  TD  1000: NEXT 
: PDKE  2,0 

1140  PR I NT” C GUL , CLR) ” ; : PDKE  IN, 9 
: PDKE  BD , 8 

1150  PRINT”CCRSR  — 

■■»CRUS  DN)  CRUS  DFF)mm. 

___”:POKE  Sl  +  1, 0:  PDKE  S2+1.0 
UGØ  PR I NT” C  RUS  DN , SPACEBUFRUIT-TREE 
HALL  DF  FAME 

: PDKE  Sl+4, 17: PDKE  Sl+6,240  _ 

1170  PR I NT ” C  RUS  DFF , CRSR  HØJRE2) - 

C  RU5  rPM 

S  DFF)  " - - 

1180  PRINT”CCRSR  NED , CRSR  HØJRE3 , 

L .  GRØN)GAf1E  BY  PETER  NARIND  , 
GRAPHICS  BY” 

1190  PRINT  TABC 13) ” JOHN  TIIKKELSENCCR 
SR  NED)” 

1200  PRINT  TABC 11 ) ”CGRAA3)Y0UR  SCORE 
: ”PEEKC 1000)+PEEKC 1001 )*256 
1210  PR I NT ” C  CRSR  NED) ”TABC 10) ” CHUID) 

_ _  »» 

1220  FDR  Y-0  TD  9:PRINT  TABC10)”|"TA 
BC29) ” I ” : NEXT  Y 

1230  PRINT  TABC 10) ” v - 

1240  PR  I NT ” C  SORT , HDNE , CRSR  NED9) ” 

: FDR  P-0  TD  9:PRINT  TABC 12)H$CP)L 
EFTSCPS , 7-LENCHSCP) ) ) , HCP) 

1250  NEXT : I F  SC<-HC9)THEN  1400 
1260  PRINT” CCRSR  NED2 , CRSR  HØJRE4 , 
GRAA3)PLEASE  STATE  YDUR  NAME 
:  CHUID)”; :PDKE  204,0 
1270  GET  AS : I F  A$-””THEN  1270 
1280  PDKE  Sl+1, 25: PDKE  Sl+1,0 
1290  IF  AS-CHRSC 13) THEN  PDKE  204,1 
: PRINT”  ” : GDTD  1360 
1300  IF  AS-CHRSC 20) AND  LENCN$)-0  THE 
N  1270 

1310  IF  AS-CHRSC 20) THEN  PRINT  AS; 


: NS-LEFTSCNS , LENCNS )-l ) : GDTD  1270 
1320  IF  LENCN$)>6  THEN  1270 
1330  IF  AS-”  ”THEN  PRINT  AS ; : NS-NS+AS 
: GDTD  1270 

1340  IF  ASCCASX65  DR  ASCCA$)>90  THE 
N  1270 

1350  PRINT  AS;  .-NS-NS+AS :  GDTD  1270 

1360  FDR  N-0  TD  9 

1370  IF  SC>HCN)THEN  G-N 

: FDR  S-0  TO  9-G : HC 10-S)-HC9-S) 

: HSC 10-S>»H$C9-S) : NEXT: L-l 
13BØ  IF  L-l  THEN  HCN)-SC : H$CN)-N$ : L-0 
: SC-0 : GDTD  1240 
1390  NEXT 

1400  IF  QUI-1  THEN  FDR  T-0  TD  400 

: I F  PEEKC JS)-111  THEN  T-401 : RETURN 
1410  IF  QUJ-1  THEN  NEXT:  PDKE  532B1 , 6 
.-GDTD  270 

1420  FDR  T-l  TD  500: T-T+C7000  AND  PE 
EKC JS)-1 1 1 ) : NEXT : GDSUB  200 
: GDTD  490 

1430  DATA  78A97F8DØDDCA973BD1403A903 
8D1503A9B18D1 AD05BA200BEA802A232B 
EA7,  3331 

1440  DATA  02A206BEA902A20E8EAA02A25B 
8EAB026000A901BD19DØAD7203F01BADA 
902,  3079 

1450  DATA  20C203A9008D7203ADA7021B6D 
AB02BDA7028D12D04CAD03ADAA0220C20 
3A9 ,  2973 

1460  DATA  018D7203ADA702186DAB028D12 
DØAD1 1D0297FBD1 1DØADØDDC2901F0034 
C31 ,  3022 

1470  DATA  EA4CBCFE48A502F00868BD20DØ 
BD21D0606860,  2402 

14BØ  DATA  0000002000002000002B00002C 
00003D00003D00003F000037400037CØØ 
03D ,  760 

1490  DATA  CØØØØDDØØØØDFØØØØF7400037C 
0003DDØØØØDF4000F7D4003DFDØØØF570 
003,  2313 

1500  DATA  FF005400005500000540000540 
000150000150000114000104000105000 
101,  758 

1510  DATA  0001 01000 100402 A0040AAB2AØ 
AABAABABBAABAB8ABBAE8AB8AEBABBAAØ 
AE8 ,  3483 

1520  DATA  2B02A000000000000000005000 
00500000 140000 140000050000954002A 
6AØ ,  94B 

1530  DATA  ØAAAA80AAAAB2AAAAA2AAABA2A 
AABA2AAABA2AAAEA2AAAEB2AAAE80AABA 
B02 ,  3957 

1540  DATA  AAAØØØAA8ØØØØØØØØØØØØØØØØØ 
000000000000000000000000000050000 
06A ,  814 

1550  DATA  00006 AB0006AA0006EAB006 AE A 
806AAEA96AAAA95AEAE91 AAAA916AAA50 
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55A,  3514 

1550  DATA  55015554001540000000000000 
0000000000000000000000 FF0003FFCØØ 
FFF ,  1315 

1570  DATA  FØØFFFF03FFFFC3FFFDC3FFF7C 
ØFFF7ØØFF5FØØ3FFCØØØFFØØØØØØØØØØØ 
000,  3887 

1580  DATA  ØØØØØØØØØØØØØØØØØØØØØFFFØØ 
3BEAC02FFF802AAA802AAA802FAAC02EB 
ACØ ,  2538 

1530  DATA  2EFEC02EFEC02FBAC02AAAC02F 
EA802ABFC03AAA803EAA802FAA802BEA8 
02A,  4155 

1600  DATA  FE802ABFC03AABCØØFFFØØØØØØ 
000000000000000000000000010000040 
000,  1503 

1610  DATA  140000AA0002AA800AAAAØØAAA 
AØØ A A AEØØ A A AEØØ AAAEØØA ABEØØ A AF AØØ 
2AA ,  3304 

1620  DATA  8000AA00002800000000000000 
ØØØØØØØØØØØØØØØØØØØØØØABØØØØASØØØ 
2AA ,  846 

1630  DATA  0002AAØØØAAA800AAA800AAB80 
ØAAB800AAF800AAF800ABEB002BE0002B 
AØØ,  2740 

1640  DATA  ØØABØØØØABØØØØØØØØØØØØØØØØ 
000000000000000000000000000000000 
000,  336 

1650  DATA  00400000 1000001 0002554 AØA9 
55B8A355A8AEAAA8AAAABBAAAEA8ABAAA 
82A ,  3336 

1660  DATA  AABB2AAAAØØABAAØØAAA8002AA 
ØØØØABØØØØØØØØØØØØØØØØØØØØØØØØØØØ 
000,  1730 

1670  DATA  00000000000015000155401556 
505355545555545565343555545555645 
553,  1366 

1680  DATA  54165550055540015500000000 
ØØØØØØØØØØØØØØØØØØBFØØØØØFØØØØØFØ 
202,  608 

1630  DATA  330A8A830A8AB02AAAA02AAAEØ 
2AAAE02AAAE02AAAEØØABB800AEB800AE 
A80 ,  3732 

1700  DATA  03AA0003AAØØFCABØØFCABØØØC 
2ØØØØC2ØØØØCØØØØØØØØØØØØØØØØØØØØØ 
000,  1286 

1710  DATA  00000000000000000000000000 
02FC2002FC2AAACC2555CC2555EC2555F 
F25 ,  2054 

1720  DATA  55FE2555FFØFFFFFØFFFFF2EEF 
EFØEEFEF0220200220200000000000000 
000,  2314 

1730  DATA  00000000000000000000000000 
003F80003FB00833AAA83355583B5558F 
F55 ,  1575 

1740  DATA  58BF555BFF5558FFFFFØFFFFFØ 
FBFBBBFBFBB00808B00808B0002AØØFF, 
4323 


1750  DATA  FE03DØBC03DØCØFFDØØDA9E720 
21C069133D02D0205CC060AD12D045A26 
5A2 ,  3331 

1760  DATA  2A608DC002AD12D045A265A22A 
CDC0023003EDC002AØØØCØFEDØF260A90 
B20 ,  3755 

1770  DATA  21C01869F29DF907E9F1 A8B950 
C09D2BD0600002050200020B01020F020 
ØBA,  2786 

1780  DATA  4AAA203BC060A2FD8EFB07AEØØ 
DØEØFFF003EEØØD060A2FE8EF807AEØØD 
ØEØ,  4500 

1730  DATA  18F003CEØØD060ADØØDCC977DØ 
032063CØC967D0032063C02063C02063C 
ØC9,  3715 

1BØØ  DATA  7BD0032073CØC96BD0032073CØ 
2073C02073C060EAEAEAEAEAEAEAEAEAE 
AEA,  4885 

1810  DATA  EAEAEA186D40033003EE41038D 
4003A020A20C200CE5AE4003AD410320C 
DBD ,  3110 

1820  DATA  E A60EA AD 1EDØBDC1 022901 C901 
D00320ECC060A30A20BCCØA213ADC102C 
303,  3666 

1830  DATA  D002A203C905D002A205C909DØ 
02A207C91 1D002A209C921D002A20BC94 
1DØ,  3237 

1B40  DATA  02A20DC3B1D002A20FA3FE9DØØ 
D060A201EBE8BDØØDØC3E5FØØSEØØFDØF 
360,  4263 

1850  DATA  8A4AA8B3F807C9F7F004C9FBDØ 
EDAD20DØEAEAC3FØDØØAA307BD20D060B 
D20,  4775 

1860  DATA  D060A902BD20D060AD1ED08DFF 
CFC900F06B2901C901F065ADFFCF2902C 
302,  3380 

1870  DATA  D008EAEAEAA2024CD3C1 ADFFCF 
2304C304D005A2044CD3C1 ADFFCF2908C 
908,  4133 

1880  DATA  D005A2064CD3C1ADFFCF2910C3 
10D005A20B4CD3C1 ADFFCF2920C920DØØ 
5A2 ,  3943 

1B30  DATA  ØA4CD3C1 ADFFCF2940C940D005 
A20C4CD3C1 ADFFCF2980C980D005A20E4 
CD3 ,  4171 

1300  DATA  C160CACA200AC060A30FBD18D4 
A3008D05D4A9F08D06D460EA8D04D4BEØ 
ØD4 ,  3320 

1910  DATA  BC01D460EAEAEAEAEAEAEAAD40 
03CD02C7F0098D02C7A914BD03C7EAADØ 
3C7,  4465 

1920  DATA  C932F01 1EE03C7A91 1 AE03C7AC 
03C720EAC14C29C2A9008D04D460 ,  3276 

1330  DATA  A202BEFACFA200BEC5022000CØ 
AEC502E8EBEØØEDØF120B3C020DCC0202 
6C1 ,  4076 

1340  DATA  205DC120FBC1 AEFACFCABEFACF 
EØØØDØD560,  2367 
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V  )'V  .liv 


Tun,  fun.  fun-  synger  Beach  Boys 
og  sandelig  om  ikke  der  er  masser 
af  Fun  i  Amstrad-programmet 
"Ordsplit".  Tast  et  vilkårligt  ord 
ind  og  maskinen  vil  udregne  og  ud¬ 
skrive  alle  kombinationerne.  Den 
tager  ikke  hensyn  til.  om  det  er 
ord.  der  eksisterer  i  det  danske 
sprog,  men  så  er  det  også  bare  me¬ 
re  FUNI 

Kenneth  Bemholm 


m  fcmr 


in  RFM  *#*  ORDSPLIT  VI. ø  %%% 

'O  PEN 

i"  PFM  <C)  KENNETH  BERNHOLM  13-12-85 
40  REM 

‘■•h  MODE  1  =  BORDER  O:  INK  0.0- )Hk  1, 24- INK  2,6'  INK  3,  1  ■  BN=  1  'GG=ø'HR=ø'DIM  fl*<22> 
mT  OLS'PEN  1 - L OCflTE  1.1 'PRINT  "Indtast  et  ord  (max,  21  tefln). " < LOCRTE  3,6- INPUT 
"ORD  "  i  ORDS.  I F  L.ENOTRD*  )>21  OR  LENC  ORD*  X 1  THEN  60  E 

I.  SF  ?ø 

70  Cl S 'LOCRTE  1,1 'INPUT  "1.  FRI  7  2.  STYRET  SORTERING  "iFG'IF  FG-1  OR  FG°2  THEN 

I I.  S  ELSE  7ø 

Sø  PHI  3'I.OChTE  1,1 'PRINT  "Ord  •  " i  ORD*  =  LOCHTE  1,3'PRINT  LENC ORD* >1 "  Te9n."'F0R 
y-  \  TO  I  FN1  iTRI>*«  • -  H*C R  T=MID*C ORD*,R,  1  >■  NEXT  R : FOR  IOP 
-'o  10  26-CR-2)  STEP  -1  'IOCRTE  I0P,2ø'PEN  1 'PRINT  'NEXT  IOP 


s*’  PH'  1  I.OCHIF  1,1 'PRINT  "Ord  >  "  i  ORD*  '  LOCRTE  1,3'PRINT  LENC  ORD*  "  Te9n."'F0R 
P " I  TO  I  UK  OPI >ti  ’■  h*C R T=IT  1  D*C ORD* , R,  I  >' NEXT  R'FOR  IOP 
V,  10  26-CR-2)  STEP  -1 'I  OCflTE  IOP, 20 'PEN  1 'PRINT  i NEXT  IOP 

w‘i  FOP  hF=BN  ro  P-FOR  HI,=FiN  TO  R'FOR  RC-BN  TO  R'FOR  R6=BN  TO  R'FOR  ZZ-BN  TO  Ri  FO 
i-  YT  PH  rø  R'FOP  XX~BN  TO  R'FOR  WW=BN  TO  R'FOR  VV=BN 
in  P  FOR  UIJ=BH  ro  R'FOP  1  I =BN  TO  R'FOR  SS«BN  TO  R'FOR  RR-BN  TO  R'FOR  GO-BN  TO.R 
løø  FOR  PP=BN  TO  P ' FOR  00=BN  TO  R'FOR  NN=BN  TO  R'FOR  NM=BN  TO  R'FOR  LL-BN  TO  R'F 
OP  K  --BN  TO  R'FOP  IJ=PN  TO  P 

Mø  IF  FG= I  THEII  120  ELSE  PEN  2-LOCRTE  6.10'LINE  INPUT  "Tast  ENTER  "jG* 
l-ø  mh=Ah+ l 'PEN  t 'LOCRTE  1 ,5 -PRINT  "Kombination  nr.  "iflfl 

I  :0  PEN  2' LOCHTE  26, 2ø' PRINT  H*C 1  ) ■ 6N=2 ■ LOCRTE  26, 20 'PRINT  fl*(JJ)'NEXT  JJ'GG«1'G 
øsi'B  200 -I  OCflTE  25, 20 'PRINT  fl*<  1  )■  LOCHTE  25, 20 'PRINT 

H*C KK  ■  NFXT  KK ■ GG=2 • GOSUB  200  LOCHTE  24,20'PRINT  R*< 1 >' LOCRTE  24, 20 'PRINT  H*< LL 
"NFXI  I  L' 03 'GOSUB  2øø 

14"  l.OOfOF  22. 2ø -PRINT  fl*t 1 )  ■ BN=2 1 LOCRTE  23, 20 'PR  I NT  A*<  MM  > 1 NEXT  MM ' GG«4 ' GOSUB  2 
""  •  l  OCflTE  22, 2ø -PRINT  H*,  1  )' LOCHTE  22, 7ø  '  PRINT  H*<  NN  * 

’  HFXI  NN  ",.,=5- GOSUB  2øø  -  LOCHTE  21, 20 -PRINT  fl*U>' LOCRTE  21, 20 'PRINT  fl*<00)-NEXT 

øø  øC, =6  ■  GOSUB  2øø 

150  LOCRTE  20, 20 'PRINT  fl*< 1 >'BN=2 'LOCRTE  20,20'PRINT  fi*CPP>'NEXT  PP ' GG*7 ' GOSUB  2 
"ø  l  i"-RTE  19, 2ø -PRINT  Ht(l)i LOCRTE  19, 20 'PRINT  fl*<GQ 

'  NFXI  00 - GG-8 - GOSUB  200'LOCRTE  18,20'PRINT  fi*C 1  LOCRTE  18,20'PRINT  fl*<RR:"NEXT 

PP-GG=9' GOSUB  2øø 

IH"  I  Or  RTF  17, 2ø -PRINT  R*C 1 >-BN=2 'LOCRTE  17, 20 'PR I NT  fl*CSS)'NEXT  88  - GG»10 1 GOSUB 
•""-LOCRTE  16, 2ø -PRINT  R*C 1 )' LOCRTE  16, 20 -PRINT  R*CT 

T > ' NEXT  TT  <  GO  11 -GOSUB  200'LOCRTE  15,20'PRINT  ft*Cl)'LOCRTE  15,20iPRINT  fl*<UU)'NE 

XI  NU  GOl2- GOSUB  200 

17"  I  OCflTE  14, 20 'PRINT  fl*< 1 )' BN-2 • LOCRTE  14,20'PRINT  fl*< W ) ' NEXT  VVlGG-13' GOSUB 
:JøØ '  I  OCR  TF  13,20'PRINT  fl*(  1  >'LOCfiTE  13,20'PRINT  fl*<  W 

W  ■  - NFX I  NU  - GG= 1 4 • GOSUB  200 ■ LOCRTE  12, 20 ■ PRINT  R*( 1 > ■ LOCfiTE  1 2 , 20 1  PR INT  fl*C  XX  > ' NE 

XT  XX  - GG= 1 5  - GOSUB  200 

I""  1  O'  HIP  1  I . 2ø -  PRINT  fl*< 1 >'&N=2' LOCHTE  11, 20' PRINT  fl*( YY  > ■ NEXT  YY i GG«»16 1 GOSUB 
70"  - 1- '  Cfl  I F  1 " ,  3"  -  PRINT  fl*<  1  ) '  I  OCflTE  1 0 , 20 '  PR  I  NT  fl*<  2 

7  > -  NFXI  .77  -  GG=1 7  -  GOSUB  2øø'L.0CflTE  9,20’PRINT  R*C  1  )  'LOCRTE  9,20'PRINT  fl*C  AB  > '  NEXT 
A6'GC= 18 -GOSUB  200 

I9ø  LOCRTE  8, 2ø 'PRINT  fl*C 1 >' BN=2 ' LOCHTE  8,20'PRINT  fl*< RC > ' NEXT  RC ' GG« 1 9 « GOSUB  ?fl 
"  M'CATE  7,2ø -PRINT  fl*< 1  )■ LOCRTE  7,20'PRINT  fl*C RD > 1 N 

FX  I  HD  - GG=2ø ' GOSUB  200' LOCRTE  6, 20 'PRINT  fl*< 1  )■ LOCRTE  6, 20 'PRINT  fl*< FlE > ' NEXT  RF 

', G =31 -GOSUB  2øø -GOTO  210 

280  IF  GG=R- 1  THEN  21 ø  ELSE  RETURN 

2lø  flfl-flfl- 1 ' CL.S ' PEN  1  LOCRTE  1,1 'PRINT  "Rf  ordet  >  "-PEN  2'LOCRTE  12, l 'PRINT  ORD 
* ■  I  OCflTE  ll+R.l  PEN  1 -PRINT  "  <“> LOCRTE  1,3'PRINT  " 

h  I  *v  der "  - 1  OCflTE  1,5  =  PEN  2  •  PR  I  NT  RR  -  LOCRTE  1 , 7  ■  PEN  1 '  PR  I  NT  "  k  c,r«ib  i  nat  i  oner ;  "  '  LOCR 
TF  l.lø'PFN  3 -END 
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Commodore  64 

C-64  Castle 

Dungeon j 


Forvild  dig  ned  til  de  unævnelige 
rædsler  under  den  store  borg. 
Skrækkelige  monstre  lurer  i  gan¬ 
gene.  kun  ventende  på  at  sætte 
kløerne  i  dit  kød. 

Find  bomberne,  der  er  skjult  i  slot¬ 
tet.  og  overskrid  ikke  tidsfristen 


på  de  tre  minutter.  Spillet  er  op¬ 
bygget.  så  hele  slottets  grundplan 
findes  på  skærmen  på  en  gang. 
men  du  ser  kun  et  lille  felt  rundt 
om  din  mand  -  so  watch  out!!! 

Thomas  Køchs  Nielsen 


PROGRAM:  CASTLE  DUNGEON 

0  GOSUB  5000 : GOSUB  1500: GOSUB  BØØ 

: G05UB  1000: GOSUB  1100: GOSUB  1300 
: GOSUB  1010 

I  GOSUB  1140 

5  GOSUB  3000: GOSUB  4000 : GOSUB  1500 
:  T I  $  — ”000000 ” 

7  GOSUB  20 : GOTO  7 

10  JO-0: JY-PEEKC5G320) 

:J2-15-CJY  AND  15):0N  J2  GOTO  11, 
12, 12, 13, 13, 13, 13, 14: RETURN 

II  JO— 40:  RETURN 

12  JO-40: RETURN 

13  JO— 1:  RETURN 

14  JO-1: RETURN 

20  GOSUB  10 

25  GET  A$:IF  AS- ”L ”THEN  GOSUB  491 
:  LE— 1 

27  IF  TI$> ”000300”THEN  A$-”TIDEN  LØB 
UD”: GOTO  BØØ 

30  TE-PEEKCNA+J0)-40: IF  TE<0  THEN  LE 
-0 : GOTO  170 

40  ON  TE  GOSUB  50,60,00,90,110,130, 
140, 150, 1BØ: GOTO  170 

50  GOSUB  220: JO-0: RETURN 

BØ  IF  NOT  LEU  THEN  POKE  HA , BL 

: GOSUB  125 : AS— ”DU  FALDT  I  ET  HUL” 
: GOTO  105 

70  K-l: RETURN 

BØ  KE— 1 : POKE  1303,43:P0KE  55575,1 
: GOSUB  401: RETURN 

90  GOSUB  320: IF  NOT  SU  THEN  A$-”DU  B 
LEU  SPIST  AF  ET  UHYRE”: GOTO  BØØ 


100  GOSUB  3BØ: RETURN 

105  GOSUB  220:  FOR  TD-1  TO  200.-NEXT 
: GOTO  BØØ 

110  BO-BO-1 : POKE  1823+40* BO , 45 
: POKE  5B095+40*B0, 1 
: IF  BO-0  THEN  500 

120  RETURN 

125  GOSUB  2BØ: GOSUB  220 
: FOR  TD-1  TO  200: RETURN 

130  RETURN 

140  IF  NOT  KE  THEN  GOSUB  220: JO-0 
: RETURN 

150  RETURN 

1BØ  SU— 1: GOSUB  401: POKE  1423,49 
: POKE  55695, 1: RETURN 

170  XH-0 : POKE  NA , BL : NA-NA+ JO 

: POKE  NA , F I : I F  K-l  THEN  POKE  NA, 42 
:  K-l 

1BØ  Q-NA-1024: Y— INTCQ/403 

:X-CQ-Y*40)*B: IF  X>255  THEN  XH-IN 
TCX/25B 3 : X-X-XH*256 

190  Y-Y*B+32: POKE  HX , XH : POKE  LX , X 
: POKE  YS , Y : BL-32 

195  IF  K-l  THEN  K-0:BL-42 

196  RETURN 

200  FOR  1-1  TO  4 : READ  NO Cl, 15, DU Cl, I) 
:  NEXT 

201  FOR  1-1  TO  7 : READ  N0C2, I  5 , NLC2, 

I  1 ,DUC2, I j : NEXT 

205  RETURN 

210  DATA  8,100,7,50,7,50,12,300,14 

211  DATA  2,24,100,2,24,100,2,24,100, 
2, 1B3, 100,2,24,100,2,163, 100,3,35 

220  REN 
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230  PDKE  Hl , 15 : POKE  H2,19 
240  PDKE  UO, 15: PDKE  AT , 20 : PDKE  SU , 5 
:  PDKE  LUA.ND 

250  FDR  TD-1  TD  10:NEXT:POKE  UJA.ND-l 
: FDR  TD-1  TD  2 : NEXT : RETURN 
250  RED 

270  PDKE  AT, 10: PDKE  SU, 10: PDKE  UD, 15 
280  FDR  1-200  TD  100  STEP-1 
290  PDKE  Hl,  I:  PDKE  H2,  100:  PDKE  UJA.TR 
300  FDR  TD-1  TD  3:  NEXT:  PDKE  UJA.TR-l 
: FDR  TD-1  TD  3: NEXT: NEXT  I 
310  RETURN 
320  REM 

330  PDKE  AT, 100: PDKE  SU, 100 
: PDKE  UD, 15 

340  PDKE  Hl,  2:  PDKE  H2,  10:  PDKE  UJA  ,  ND 
: FDR  TD-1  TD  1000: NEXT 
:  PDKE  U1A.ND-1 

350  FDR  TD-1  TD  100 : NEXT : RETURN 
350  REN 

370  PDKE  AT, 100: PDKE  SU, 100 
: PDKE  UD, 15 

380  FDR  1-1  TD  4:PDKE  Hl,NOCl,I) 

: PDKE  H2, 100: PDKE  WA ,  SA 
3SØ  FDR  TD-1  TD  DUC  1 ,  I ) : NEXT 

:  PDKE  UJA  ,  SA- 1  :  FDR  TD-1  TD  DUC  1,1) 

: NEXT : NEXT 

400  RETURN 

401  PDKE  AT , 14 : PDKE  SU, 201 

402  PDKE  Hl,  120:  PDKE  UIA  ,  SA 

: FDR  TD-1  TD  100 : NEXT : POKE  UJA,  SA-1 

403  FDR  TD-1  TD  200 : NEXT : RETURN 
410  REN 

420  PDKE  UO, 15: PDKE  AT, 17: PDKE  SU, 140 
430  FDR  1-1  TD  7 : PDKE  H2,NDC2,I) 

:  PDKE  H1.NLC2,  I  )  :  PDKE  U!A,SA 
440  FDR  TD-1  TD  DUC2,I):NEXT 

:  PDKE  UIA  ,  SA-1 :  FDR  TD-1  TD  DUC2.I) 

: NEXT: NEXT: RETURN 
450  REN 

460  PDKE  AT, 100: PDKE  SU, 120 
: PDKE  UO , 15 

470  PDKE  Hl,  4:  PDKE  H2, 48:  PDKE  UIA.SA 
:  FDR  TD-1  TD  500  :  NEXT  :  PDKE  UJA,  SA-1 
4BØ  FDR  TD-1  TD  400 : NEXT : PDKE  Hl , 2 
:  PDKE  H2, 24:  PDKE  UIA.SA 
: FDR  TD-1  TD  900: NEXT 
485  PDKE  UJA,  SA-1:  FDR  TD-1  TD  500:  NEXT 
: RETURN 

490  REN 

491  PDKE  AT, 100: PDKE  SU , 250 
: PDKE  UD, 15 

492  FDR  A— 1 0  TD  20: FDR  B-20  TD  27 

:  PDKE  Hl  ,  A  +  B  :  POKE  LI,  40:  PDKE  UIA  ,  TR 

493  FDR  TD-1  TD  2:  NEXT:  POKE  UIA.TR-1 
: FDR  TD-1  TD  1 : NEXT : NEXT : NEXT 

494  RETURN 

500  PDKE  53269, 0:GDSUB  410: PDKE  BA,1 
: FDR  TD-1  TD  2000: NEXT 


510  PRINT”CCLR) ” : PDKE  251,50 
: PR  I NT ” C  SDRT , CRSR  NED7 , 

CRSR  HØJRE11 )TILYKKE  !” 

520  PRINT”CCRSR  NED2)DU  BLEU  DEN  LYK 
KELIGE  EJER  AF  DUNGEONEN" 

530  GDTD  700 

600  PDKE  53269,0: PDKE  BA,l:GOSUB  450 
: FDR  TD-1  TD  5000 : NEXT 
610  PR  I NT ” C  CLR , CRSR  NEDB, 

SORT)”SPCC  C  C  40- C  LEN  C  AS) ) )/2) )AS 
620  PRINT ” C  CRSR  NED3 , CRSR  HØJRE10)DU 
FIK  IKKE  DUNGEONEN” 

630  GDTD  710 

700  PDKE  251,0: FDR  TD-1  TD  1500: NEXT 
: PR I  NT ” C  CLR , CRSR  NED2 , 

CRSR  HØJRE14)DENNE  GANG” 

710  FDR  TD-1  TD  500: NEXT 

: PR I NT ” C  CRSR  NED5 , SPACE6 ) TRYK  J  F 
OR  ET  SPIL  NERE” 

720  GET  AN$:IF  ANS- ” ”THEN  720 
730  IF  ANS- ” J ”THEN  PDKE  BA, 0: GDTD  5 
740  PDKE  251,0: END 

1000  FDR  L-679  TD  703: READ  A : PDKE  L , A 
: NEXT: PDKE  806, 167: PDKE  807,2 
: PDKE  251 ,40: RETURN 
1010  PRINT  CHRS  C  1 4 ) ” C  CLR , CRSR  NED5 , 

HU I D , SPACE2 ) F I ND  BOHBERNE  SKJULT 
I  SLOTTET.” 

1020  PR  I  NT" C  CRSR  NED, CRSR  HØJRE2)FAL 
D  IKKE  I  ET  HUL  ELLER  BLIU  SPIST” 
1030  PRINT”CCRSR  HØJRE2) AF  ET  UHYRE. 
TRYK  ’L  FDR  AT” 

1040  PR  I NT ” C  CRSR  NED , SPACE2) SPR I NGE . 
DU  HAR  3  MINUTTER” 

1050  PR  I NT ” C  CRSR  NED , SPACE2 ) T I L  AT  U 
DFØRE  DIN  DPGAUE  .  ” 

1060  PRINT: PRINT: PRINT”  C  TRYK 

FIRE  FDR  AT  BEGYNDE)” 

1065  GDSUB  10: IF  JY<>111  THEN  1065 
1067  RETURN 

1070  DATA  72,138,72,152,72,166,251, 
240 , B , 160 , 255 , 136 , 208 , 253 , 202 
1080  DATA  208.24B, 104, 16B, 104, 170, 
104,76,202,241 
1100  Cn-14336: CS-53248 

: PDKE  56334, PEEK C 56334 ) AND  254 
: PDKE  1 , PEEKC 1 ) AND  251 
1110  FOR  1-0  TD  1 024 : PDKE  01+1, 
PEEKCCS+I ) : NEXT 

1120  FDR  I-CH+320  TD  01+320+95 : READ  A 
: PDKE  I , ABSCA-255) : NEXT 
1130  PDKE  1 , PEEKC 1 )0R  4 

: PDKE  56334, PEEKC56334)DR  1 : RETURN 
1140  PDKE  53272, C PEEK C 53272 ) AND  240) 
DR  14 

1150  RETURN 

1160  DATA  247,227,246,193,215,247, 

235 , 235 , 255 ,34,34,34, 255 ,68,68,68 
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1170  DATA  255,231,195,129,129,131, 

199.255.255.191.95.54.90.186.255, 
255 

1180  DATA  191,121,112,1,0,135,55,115, 

255 . 239 . 247 . 231 . 195 .195.231. 255 
1190  DATA  255,255,255,255,255,255, 

255 . 255 . 255 . 255 . 255 . 129 . 129 . 255 , 

255.255 

1200  DATA  255,255,255,255,255,255, 

255 , 255 , 255 , 253 , 251 , 247 , 143 , 207 , 

175.255 

1210  DATA  191,121,112,1,0,135,55,115, 
255 , 255 , 231 ,0,0,231, 255 , 255 
1300  PRINT  CHRSC 147) : POKE  BA  ,  0 
: POKE  BR , 0 

1305  READ  L,N:IF  N— 1  THEN  GOSUB  410 
: FOR  TD-1  TO  3500 : NEXT : RETURN 
1310  FOR  J-0  TD  N : READ  S:PDKE  L  + J  ,  S 
: NEXT : GOTO  1305 

1350  DATA  1234,17,85,64,73,112,64, 

110.85.64.75.64.114.64.112.32.32, 
112,64,75 

1370  DATA  1274,16,93,32,32,107,64, 

115.74.64.73.32.93.32.93.32.32, 
107,64 

13BØ  DATA  1314,17,74,64,75,75,32,125, 
85,64,75,32,75,32,74,64,75,109,64, 
73 

1420  DATA  1393,20,114,64,73,73,32, 

1 10, B5, 73, 110,85,64,73, 112,64,75, 
85,64,73 

1421  DATA  85,73,110 

1440  DATA  1433,20,93,32,93,93,32,93, 

93.93.93.93.64.73.107.64.32.93.32, 
93,93 

1441  DATA  93,93 

1450  DATA  1473,20,113,64,75,74,64, 
115,125,74,75,74,64,75,109,64,73, 
74,64,75, 125 
1455  DATA  74, 75, -1,-1 
1500  UA-54276:  NCJ-129:  TR-17:  UG-54296 
:S0-54272: AT-54277 

1505  BA-532B1  :  BR-532BØ  :  LE-0  :  SUI-0  :  KE-0 
: BO-3: LO-44 

1510  SA-33: SU-5427B: Hl-54273: H2-54272! 
:FI-40:BL-32 

1515  HX-53264: LX-53248: YS-53249 
: POKE  53271,1: POKE  53277,1 
1517  POKE  53269,1: FOR  I -832  TO  896 
: POKE  I ,255: NEXT: POKE  2040,13 
1S1B  POKE  53287,1: POKE  53275,1 
1520  FOR  I -SO  TO  50+28: POKE  I , 0 : NEXT 
: POKE  UO, 15: RETURN 
3000  POKE  UO, 0:1-49152 

: IF  PEEKC I +2)-216  THEN  SYS  49160 
: GOTO  3025 

3010  READ  A : I F  A-256  THEN  SYS  49160 
: GOTO  3025 

3020  POKE  I , A : I - 1+1 : GOTO  3010 


3025  FOR  1-1024  TO  1062: POKE  1,41 
:POKE  1+960, 41 : NEXT 
3027  FOR  1-55296  TO  56295: POKE  1,0 
: NEXT: RETURN 

3030  DATA  1,0,216,255,255,255,40,0, 
169,41 , 133,251 , 169,40 
3050  DATA  133,253,169,4,133,252,133, 
254 , 169 , 147 ,32,210, 255 , 162 
3070  DATA  0,160,0,169,41,145,253,200, 
192,39,208,249,24,165 
3090  DATA  253,105,40,133,253,144,2, 
230 , 254 , 232 , 224 , 23 , 208 , 229 
3110  DATA  160,0,169,4,145,251,169, 
255,141 , 15,212, 169, 12B, 141 
3130  DATA  18,212,173,27,212,41,3,133, 
173,170,10, 16B , 24 , IBS 
3150  DATA  0,192,101,251,133,170,185, 

1 , 192,101,252,133, 171,24 
3170  DATA  185,0,192,101,170,133,253, 
185,1 , 192,101 , 171 , 133,254 
3190  DATA  160,0,177,253,201,41,208, 
18,138,145,253,169,32,145 
3210  DATA  170,165,253,133,251,165, 
254,133,252,76,62,192,232,138 
3230  DATA  41 , 3 , 197 , 173 , 208 , 1B9 , 177 , 
251,170,169,32,145,251,224 
3250  DATA  4,240,26,138,10,168,162,2, 
56,165,251,249,0, 192 
3270  DATA  133,251,165,252,249,1,192, 
133 , 252 , 202 , 20B , 238 ,76,62 
3290  DATA  192,169,1,160,0,153,0,216, 
153,0,217, 153,0,218 
3310  DATA  153, 0,219, 200, 20B, 241, 96, 
256 

4000  REH 

4010  T-32: 0-42: FOR  1-1  TO  7 
: GOSUB  4100 : NEXT 

4020  0-44: FOR  1-1  TO  6: GOSUB  4100 
:  NEXT 

4030  0-45: FOR  1  =  1  TO  3: GOSUB  4100 
:  NEXT 

4040  Q-43 : FOR  1=1  TO  2: GOSUB  4100 
:  NEXT 

4050  0=47: FOR  1-1  TO  5 
4055  GOSUB  4100 

4060  I FC PEEKC PL-40 ) < > 32 ) ORC PEEKC PL+4 
0)<> 32 ) THEN  POKE  PL,BL:GOTO  4055 
4070  NEXT 

40BØ  Q-49: GOSUB  4100 
4090  O-FI:  GOSUB  4100:riA  =  PL 
4095  T-41 : Q-32 : FOR  1-1  TO  50 
: GOSUB  4100: NEXT: RETURN 
4100  X- C  RNDC  8 ) *36+2 ) : Y- I NT C RND C  8 ) *20 
+  3)  :  PL  =  Y*40+  X+ 1024  :  IF  PEEKCPLX>T 
THEN  4100 

4110  POKE  PL,Q: RETURN 
5000  PR  I NT ” C  CLR , CRSR  NED11, 

CRSR  HØJRE14 , RUS  QN)UENT  LIDT  i" 
5010  RETURN 
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Piccolo 

Sortering 


Hvis  du  indimellem  har  brug  for  at 
sortere  en  større  datamængde, 
kan  du  bruge  denne  procedure.  Et 
kald  af  proceduren  med  EXEC 
quick  (a.n)  vil  sortere  de  n  første 
elementer  i  array'et  a.  Som  proce¬ 
duren  er  listet  her.  kan  den  kun 
sortere  tal.  men  kan  meget  nemt 
konverteres  til  også  at  sortere 
tekst. 

Metoden,  der  bliver  brugt,  er  en 
forbedret  udgave  af  quicksort  me¬ 
toden  og  er  mindst  10%  hurtige¬ 
re. 

Linie  420-550  er  kun  en  demon¬ 
stration  af  proceudren.  der.  hvis 
man  indtaster  n.  laver  n  tilfældge 
tal.  sorter  dem  og  samtidig  bereg¬ 
ner.  hvor  lang  tid  selve  sorteringen 
tog. 

Lars  Christensen 
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0010  //  Cooyriaht  (c)  by  Lars  Christensen,  Hillerød 

0020  // - 1 - 

0030  //  tal-sorterings-proceduren  kaldes  med  : 

0040  //  EXEC  quick(tal,n)  hvor 

0050  //  tal  er  navnet  på  det  talarray  der  skal  sorteres. 

0060  //  n  er  antal  elementer  i  tal 

0070  //  - 

0080  PR0C  quick  <  REF  a(),n>  CLDSED 
0090  DIM  stak ( INT (LOG  <n) /LOG (2) ) +2, 2) 

0100  s:=l:  stak <1, 1) :=1 ;  stak(l,2):=n 

0110  REPEAT 

0120  venst r :=stak (s, 1 ) ;  hø j re:=stak <s,  2)  ;  s:=s-l 

0130  REPEAT 

0140  i:=venstr;  j:=højre;  xs=a<<i+j)  DIV  2) 

0150  REPEAT 

0160  WHILE  a ( i )  <x  DO  i:=i+l 

0170  WHILE  a  <  j  )  >  x  DO  j  =  =  j  — 1 

0180  IF  i<  =  j  THEN 

0190  sk:=a<i);  a(i):=a<j);  a(j):=sk;  i:  =  i  +  l;  j  s  =  j  —  1 

0200  ENDIF 

0210  UNTIL  i>j 

0220  IF  j -venst r (højre  THEN 

0230  IF  i<højre  THEN  s!=s+l;  stak  ( s,  1 )  :  =  i  ;  stak  (s,  2)  :=hø  j  re 

0240  hø  j  re :  =  j 

0250  ELSE 

0260  IF  venst r < j  THEN  s:=s+l;  stak (s, 1) :=venstr;  stak(s,2):=j 

0270  venst r:=i 

0280  ENDIF 

0290  UNTIL  hø j re-venst r <=12 

0300  UNT I L  s=0 

0310  FOR  i: =2  TO  n  DO 

0320  v:=a  < i ) ;  j :  =  i 

0330  WHILE  a ( j-1 ) >  v  DO 

0^40  a ( j ) s  =a  <  j-1 ) 5  j • =  j  —  1 

0350  IF  j=l  THEN  GOTO  ud 

0360  ENDWHILE 

0370  ud: 

0380  a ( j ) : =v 

0390  NEXT  i 
0400  ENDPROC  ouick 
0410 

0420  ZONE  8 

0430  INPUT  "n  ?  " :  n 

0440  DIM  tal (n) 

0450  PRINT  "De  usorterede  tal  :  " 

0460  FOR  i : =1  TO  n  DO  t a 1 < i ) : =RND < 1 , n) 

0470  FOR  i :=1  TO  n  DO  PRINT  tal<i), 

0480  PRINT 

0490  PRINT  "Sorting. . . " 

0500  tid :=SYS  <3) 

0510  EXEC  quick (tal, n) 

0520  t id : = (SYS (3) -t id ) /50 

0530  FOR  i  s  =  1  TO  n  DO  PRINT  tal<i), 

0540  PRINT  CHR*<7> 

0550  PRINT  "Det  tog  ";tid;"  sek" 
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Amstrad 

Orneoje 


Dette  program  til  Amstrad  gåri  alt 
sin  enkelthed  ud  på  at  kunne  stu¬ 
dere  et  stykke  hukommelse  (evt. 
en  binær/ascii  fil)  i  hex  ASCII,  der 
er  mulighed  for  LOAD  8  SAVE  8 
CAT  samt  at  hoppe  rundt  i  hukom¬ 
melsen.  Desuden  kan  du  søge  efter 
et  bestemt  ord/sætning  i  ASCII 
for  derefter  at  udskifte  det  med  et 
andet.  Der  er  flere  små  finesser,  så 
som  CURRENT  ADRESS  bliver  ud¬ 
skrevet  konstant  i  både  hex  og  de¬ 
cimal.  endvidere  olyser  program¬ 
met.  om  der  er  blevet  load'et  et 
program. 

Da  programmet  kun  fylder  5K  har 
det  plads  til  rimeligt  store  filer.  og 
det  er  ganske  underholdende  at 
sætte  skægge  tekster  ind  i  spil.  el¬ 
ler  eventuelt  oversætte  dem  til 
dansk. 

Kenneth  Bemholm 


1  ’  Semantics  Monitor  vi. O  By  Kermit  The  Steelfrog 

2  ’  For  TAST  -  Det  danske  programblad 

3  ’ 

4  1 a=10000: ca=la: 1  f i 1*= "NONE" 
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5  MODE  2!B0RDER  1:INK  0,1:INK  1,26:WIND0W  #0 , 1 , 30 , 1 , 25 : W I NDOW  #1,9,49,7, 17:WIND0 
W  #2, 51 , 71 , 7, 17: WINDOW  #3, 9 , 7 1 , 22 , 25 : PAPER  #0,0:PEN 

#o,i: paper  #i,i:pen  #i,o:paper  #2,i:pen  #2,o:paper  #3,i:pen  #3,o:cls  #o:cls  #i:c 
LS  #2:CLS  #3 

6  LOCATE  #0,1,1: PRINT  #0,"  " ; C HR* ( 24 ) ; “  Semantics  Monitor  vi. O  -  By 

Kerrnit  The  Steelfrog  87  CHR* ( 24 ): LOCATE  #0,9,5:PR 

INT  CHR*<24) S "Hexadecimal  code " ; CHR* ( 24 ): LOCATE  #0, 51 , 5: PRINT  CHR* ( 24 ) ; " Ase  i  i  co 
de" : CHR* (24) 

7  LOCATE  9,20:PRINT  CHR$(24) i "Users  a i d " ; CHR* ( 24 ): LOCATE  9,2l:PRINT  "CTRL+I  :  In 
sert  Text" 

8  LOCATE  #3,l,l:PRINT  #3,*'TAB  :  Screens  " ; CHR* < 240 ) ; "  CAPS  LOCK  :  Screens  "  ;  CHR 
*(241);"  CTRL+L  :  LOAD  program- : LOCATE  #3,1,2:PRIN 

T  #3 , CHR* ( 24 )  ; ” CTRL  +  W  :  Search  for  a  particular  word  CTRL  +  S  :  SAVE  program" ;C 
HR* (24) 

9  LOCATE  #3,1,3:PRINT  #3,"CTRL+R  :  Restarts  Semantics  monitor  CTRL+C  :  CAT" 

SLOCATE  #3,1,4:PRINT  #3,CHR*(24) J "CTRL+J  :  Jump  to  L 

OAD/START  address  CTRL+P  :  Specify  j urnpadd . " 5 CHR* ( 24 ) : GOSUB  63:F0R  a=22  TO  25:L 
OCATE  71 , a: PRINT  CHR* < 32 ): NEXT : GOSUB  58 

10  LOCATE  #0,1,4:PRINT  #0 , CHR* ( 24 ) ; " Cur r en t " ; CHR* ( 24 ) : LOC ATE  #0,1,5:PRINT  #0,CHR 
*(24) ; "address" ;CHR*(24) : GOSUB  39:G0SUB  33 

11  GOSUB  63: IF  INKEY (62) =123  THEN  12  ELSE  13 

12  CLS  #0:CAT:PRINT  #O.CHR*(24)  !  "Press  any  key  "  !  CHR*  (  24  )  :  C  ALL  &BB03:CALL  8£BB18:G 
OTO  5 

13  IF  I NKEY ( 35 ) =0  THEN  64  ELSE  14 

14  IF  INKEY (50) =128  THEN  15  ELSE  16 

15  CALL  &BB03:G0T0  4 

16  IF  INKEY (36) =128  THEN  17  ELSE  21 

17  GOSUB  20:L0CATE  #0. 25, 20: PRINT  CHR* ( 24 ) ; " Load . . . : " 5 CHR* ( 24 ) ; : I NPUT  lfil*:GOSU 
B  20:L0CATE  #0, 25, 20:  PRINT  CHR*  (  24  )  ;  "  I  r.to  address..: 

" ;CHR*(24) 5 : INPUT  la:GOSUB  20:L0CATE  #0,25,20 

18  PRINT  CHR*(24) ; "Lenght. .:" ;chr*(24) ;: INPUT  lt:GOSUB  20:G0SUB  56: OPENOUT" ! d" : M 
EMORY  1 a- 1 : CL03E0UT : LOCATE  #0, 25, 20: PRINT  CHR*(24);" 

Loading  " ;  1 f i  1*; CHR* ( 24 > 

19  LOAD  " ! "  +  lf i  1*,  la:GOSUB  58: ca= 1 a: GOSUB  57:G0SUB  33:G0T0  11 

20  LOCATE  #0, 25, 20:  PRINT  #0,  STRING*  (  50,  "  ”>:CALL  8<BB03  :  RETURN 

21  IF  INKEY (60) =128  THEN  22  ELSE  24 

22  GOSUB  20:L0CATE  #0 , 25 , 20 : PR I NT  #0 , CHP* ( 24 ) ; ” Save ...:"; CHR* ( 24 >;: INPUT  #0,sTil 
*:GOSUB  20;L0CATE  #0, 25, 20: PRINT  #0,CHR*(24) ; “Execut 

ion  address.  ;CHR*(24)  ;:  INPUT  #0,exa:GOSUB  20 

23  LOCATE  #0 , 25 , 20 :  PRINT  CHR*  (  24  )  ;  "  Sav  i  r.g  " ;  sf  i  1  * ;  CHR*  (  24  )  :  SAVE  "  !  " +sf  i  1*,  b,  la,  1 
t , exa: GOSUB  20:G0T0  11 

24  IF  INKEY (68)=0  THEN  25  ELSE  26 

25  cs=ca-220: GOSUB  33:GOTO  11 

26  IF  INKEY (70) =0  THEN  27  ELSE  28 

27  ca=ca+220: GOSUB  33:G0T0  11 

28  IF  INKEY (45)=128  THEN  29  ELSE  30 

29  ca= 1 a : GOSUB  33:G0T0  11 

30  IF  INKEY (27) =128  THEN  31  ELSE  32 

31  GOSUB  20:L0CATE  #0, 25, 20: GOSUB  63:PRINT  CHR* ( 24 ) 5 " Spec i f y  jumpaddress. . . : " J CH 
R*(24) ;: INPUT  sj a: ca=sj a: GOSUB  33:G0SUB  20:G0T0  11 

32  IF  INKEY (59) =123  THEN  41  ELSE  59 

33  LOCATE  2, 7: PRINT"  ": LOCATE  1,8: PRINT  #0,"  " :CLS  #l:CLS  #2: GOSUB  39: 

GOSUB  56:  pa=ca:  LOCATE  #0,2,7:PRINT  "  £<"  +  HEX*  (  c  a )  :  LOCA 

TE  #0,1,8:PRINT  #0, ca: FOR  hexrow=l  TO  1 1 : FOR  hexcol=l  TO  40  STEP  2:L0CATE  #l,hex 
c  o  1 , hexrow: PRINT  #1 , HEX* ( PEEK ( pa)  ,2) 

34  pa=pa+l:NEXT  hexco 1 , hexrow : pa=ca 

35  FOR  ascrow=l  TO  ll:FOR  asccol=l  TO  20: tegn=PEEK (pa) : IF  ( PEEK ( pa) < 32 )  OR  (PEEK 
( pa ) >255 )  THEN  tegn=ASC ( " . " ) 
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36  IF  tegn=32  THEM  38  ELSE  37 

37  LOCATE  »2,  asccol  ,  sscrow:  PRINT  #2  ,  CHR*  ( tegri ) 

38  pa=pa+i:NEXT  ascco 1 , ascrow : pa=ca : GOSUB  57: RETURN 

39  FOR  a=7  TO  17:L0CATE  49,a:PRINT  C HR* ( 32 ) : LOCATE  71,a:PRINT  CHR* ( 32 >: NEXT  a:RE 
TURN 

40  RETURN 

41  startadd=la: 1 enght= 1 t : execadd=exa 

42  GOSUB  20 : LOCATE  #0 , 25 , 20 : PR I NT  CHR* (24 ) 5 " Hun t . . . : " 5 CHR* ( 24 ) 5 : INPUT  search$:GO 
SUB  20:L0CATE  #0, 25, 20: GOSUB  63:PRINT  CHR* ( 24 ) ; " Hun t 

ing...:  " : CHR* (24) ; search*: GOSUB  56 

43  FOR  search=star tadd  TO  st ar t add + 1 enght 

44  P*=LEFT* ( search*,  1  ) 

45  po*=UPPER*  (  P* ) 

46  a=PEEK (search) :b*=CHP*(a) : c*=UPPER* ( b* ) 

47  IF  c*=po*  THEN  48  ELSE  53 

48  FOR  try=search  TO  sear ch +  LEN ( search*) - 1 

49  q=PEEK ( try ) : w*=CHR* ( q) : e*=UPPER* ( w*> : y= ( try+1 ) -search: r*=MID* ( search*, y , 1 ) : t* 
=UPPER* ( r*) 

50  IF  e*=  t*  THEN  51  ELSE  53 

51  NEXT  try 

52  ca=search: GOSUB  33: GOSUB  20: GOSUB  57: GOTO  11 

53  NEXT  search 

54  GOSUB  20:L0CATE  »O , 25 , 20 : PR I NT  CHR*324);“I  can’t  Find..:  " i CHR* (24) i search* 

55  FOR  k  =  1  TO  3500: NEXT  k: GOSUB  20: GOSUB  57:  GOTO  11 

56  LOCATE  #0,34,5: PRINT  "  W  A  I  T  M : RETURN 

57  LOCATE  #0 , 34 , 5 : PRINT  'READ  Y " : RETURN 

58  GOSUB  20:L0CATE  #0, 12, 3: PRINT  CHR*(24>;"  Program  in  memory CHR* ( 24 ); "  "5 
IF  i  1*: RETURN 

59  IF  INKEY ( 35 ) =128  THEN  60  ELSE  11 

60  GOSUB  20: s=0: LOCATE  #0 , 1 , 1 : PRINT  CHR*(24):F0R  a=27  TO  70 : g=PEEK ( ca+s ) : I F  <g<3 
3)  OR  (g >255)  THEN  y=32 

61  LOCATE  #0, a, 19 

62  PRINT  CHR*(g) :s=s+i:NEXT  a : LOCATE  MO, 1 , 1 : PRINT "I": LOCATE  #0 , 25 , 20 : GOSUB  63: IN 
PUT  r ep* : s=0 : FOR  q=l  TO  LEN ( r ep* ) - 1 : w=ASC (MI D* ( r ep* , q 

,1)):P0KE  ca+s, w: s=s+l : NEXT  q : LOCATE  #0 , 27 , 1 9 : FR INT  SPACE* ( 50 ): GOSUB  20:G0SUB  33 

:goto  il 

63  GOSUB  40 : RETURN 

64  CALL  8<BB03:  LOCATE  25,20:PRINT  CHR*  (  24  )  ;  "  Text  :  "  }  CHR*  (  24  )  ;  :  I  NPUT  txt*:FOR  kkl  = 
ca  TO  c»+LEN(txt*)-i: POKE  kk 1 , ASC ( M I D* ( t x t*, kk 1 -ca+ 1 

,1)):NEXT  kk l: GOSUB  20: GOSUB  33: GOTO  11 


COMMODORt 

OPLYSNING  TIL  UDUSTNINGERNE 

(CYAN) 

(LILLA) 

Cyan 

Lilla 

CTRL  4 

CTRL  5 

(GRØN) 

(BLAA) 

Grøn 

Blå 

CTRL  6 

CTRL  7 

Når  du  ser 

Betyder  det 

Du  trykker 

(GUL) 

Gul 

CTRL  8 

(ORANGE) 

Orange 

COMMODORE  1 

(CLR) 

Screen  clear 

SHIFT  CLR/HOME 

(BRUN) 

Brun 

COMMODORE  2 

(HOME) 

Home  cursor 

CLR/HOME 

(L.RØD) 

Lyserød 

COMMODORE  3 

(CRSR  NED) 

Cursor  ned 

CRSR  OP/NED 

(GRAA1 ) 

Grå  1 

COMMODORE 4 

(CRST  OP) 

Cursor  op 

SHIFT  CRSR  OP/NED 

(GRAA2) 

Grå  2 

COMMODORE  2 

(CRSR  HØJRE) 

Cursor  højre 

CRSR  HØJRE/VENSTRE 

(L.GRØN) 

Lysegrøn 

COMMODORE  6 

(CRSR  VENSTRE) 

Cursor  venstre 

SHIFT  CRSR  HØJRE/VENSTRE 

(L.BLAA) 

Lyseblå 

COMMODORE  7 

(DEL) 

Delete  tilbage 

INST/DEL 

(GRAA3) 

Grå  3 

COMMODORE  8 

(INST) 

Insert 

SHIFT  INST/DEL 

(F1) 

Funktionstast  1 

F1 

(RETURN) 

Return 

SHIFT  RETURN 

(F2) 

Funktionstast  2 

F2 

(SPACE) 

Space 

SPACE 

(F3) 

Funktionstast  3 

F3 

(RCS  ON) 

Reverse  on 

CTRL  9 

(F4) 

Funktionstast  4 

F4 

(RVS  OFF) 

Reverse  off 

CTRL  0 

(F5) 

Funktionstast  5 

F5 

(SORT) 

Sort 

CTRL  1 

(F6) 

Funktionstast  6 

F6 

(HVID) 

Hvid 

CTRL  2 

(F7) 

Funktionstast  7 

F7 

(RØD) 

Rød 

CTRL  3 

(F8) 

Funktionstast  8 

F8 
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55  POKE  1 4336+28*8+ J, 255 
:  PORE  1  4336+3 1  #8+ J , 

255-PEEK< 1 4336+46*8+ J> : NEXT 
57  DATA  255 , 243 , 243 , 1 92 , 243 , 243 , 255 , 
255 

6ø  FOR  ,T=ø  TO  15  READ  Q 
:  PriR'F  1  4856+. T  .  Q  :  NEXT 
= DATA  254 , 254 , 252 , 24ø , 232 , 1 56 , 235 , 
247 

6 1  DATA  127,1 27 , 63 , 1 5 , 23 ,57,215 , 239 
85  D=55296~1Q24 : FOR  J=lø24  TO  1503 
:IF  RND<  1  >>. 9  THEN  POKE  -J,3l 
: POKE  J+D, 8 : J=J+1 

87  POKE  J, 28  =  POKE  .T+D,  8 :  NEXT 
:Q*=" SCORE" 

88  FOR  ,T=1  TO  5  POKE  1823+J, 
flSC(MID*(Q$,  J,  1  >  ) -64 

: POKE  1 823+ J+D , ø : NEXT • POKE  1 029 , 58 

89  FOR  J=lø29  TO  1035P0KE  J+D, ø: NEXT 

NS =3 : GOSUB  5øøø : SC=ø : GOSUB  5010 

90  FOR  J=1  TO  10: READ  Q:POKF  0-47.64 
:  NEXT 

95  DATA  1 087 , 1 ø9ø , 1165,1212,1 25 1 , 

1 29ø , 1 33 1 , 1 297 ,1371,141 3 
llø  FOR  J=1  TO  16 
113  G=ø 

115  IF  J>5  THEN  IF  J/2=INT(.T/2>THEN 
F  ~F +4ø : 0=40 
12ø  READ  C 
13ø  T=l+J 

14ø  FOR  X=ø  TO  1  ft— T  M=  1 344+.T*4ø+X 
: N= 1 344+ J*4ø+39-X 
15ø  Q=M : GOSUB  5øø ■ Q=N : GOSUB  5øø 
*16ø  NEXT  X 

17ø  FOR  I*1364+J*4ø  TO  1444+J*4ø+F  S 
TEP  4ø 

1 8ø  0= I -T- 1 : GOSUB  5øø : 0= I+T ; GOSUB  5øø 
190  NEXT: I=I~4ø 
2øø  FOR  H=I-T-1  TO  I+T 
21ø  0=H:  GOSUB  500 :  Q=H-G  ••  GOSUB  5øø 
: NEXT : NEXT : GOTO  700 
3øø  DATA  32 , 27 , 29 , 32 , 27 , 29 , 29 , 32 , 32 , 
27,27,29,29,29,32,32 
5øø  IF  QC2024  THEN  POKE  Q,C 
: POKE  Q+D,8 

501.  RETURN 

700  IF  PEEK (832 >=33  THEN  80ø 
705  FOR  J=ø  TO  2: FOR  I=ø  TO  62RFAD  Q 
: POKE  R32+ J#64+ I ■ Q : NEXT : NEXT 
7 1 ø  DAT fl  33 , ø , 0 ■ 64 , 1 28 , ø , 1 4ø , 64 , ø , 

1 58 , 64 , ø , 243 , 1 92 , ø , 1 58 , 64 , ø , 1 4ø , 

64 ,  ø 

72ø  DATA  64 , 1 28 ,  ø ,  33 ,  ø ,  ø ,  ø ,  ø ,  ø ,  ø ,  ø ,  ø , 

ø ø ,  ø ø ,  ø ,  ø ø ø ..  ø 

73ø  DATA  ø , ø , ø , ø , ø , ø , ø , ø , ø , ø , ø , ø , ø , ø , , 

ø  ,  ø ,  ø ..  ø .  ø .  ø  .  ø 


735  DATA  ø , ø , ø , ø , ø , ø , ø , ø , ø , ø , ø , ø , ø , ø , 
0  •  ø ,  ø ,  ø ,  ø ,  ø ,  ø 

74ø ’ DATA  ø , 8 ,  ø ,  ø , 3 , 0 , 0 , 28 , ø , ø , 28 , ø , 1 , 
255 , 1 92 , 3 , 255 , 224 ,127,127 , 1 27 
75ø  DATA  3ø , 62 , 6ø , 3 , 99 , 96 , 1 , 1 93 , 1 92 , 
v  .  0 ,  ø  ,  ø  ,  0  ,  ø  ,  0  ,  ø ,  0 ,  ø ,  0 ,  ø  ,  0 
770  DATA  ø . 1 28 , 0 , 32 , 32 . 0 , ø , 2 , ø , 1 ø , 
128,2 , 40 , 2 • 0 , 1 52 , 1 3ø , 1 28 , 96 , 1 28 , 
13ø 

780  DATA  1 28 , 1 5ø , 1 36 ,0,1,215,64 , 2 1 5 , 
64 , 128,1 25 , 1 ø , ø , 2ø , 1 38 , ø , ø , 1 28 , 96 , 
105,0 

785  DATA  ø , 128,1 28 , 1 3ø ,128,128,41, ø , 
64, 6, 0, 64, lø, 2, 128, 128,8,2, ø, 8 . ø 
79ø  FOR  T= 15232  TO  15296  POKE  .1,0 
: NEXT  FOR  J= 15253  TO  15273  READ  Q 
POKE  J , Q : NEXT 

792  DATA  ø , 11 2 , ø , ø , 1 36 ,8,1, 36 ,0,1 , 

116,  ø,  1 , 36, ø, ø, 136, ø, ø, 112, 0 
800  7=53248 : POKE  7+2 1 , 0 : POKE  2ø4ø , 1 4 
:  prik  F  7+39  ■  i  •  POKE  7+28 ,  ø 
: POKE  7+46,0 

8ø5  PORE  2047, 238: POKE  7+16,0 
: POKE  7+23, ø ; POKE  7+29 , ø 
FOR  J= 1  TO  6 : POKE  2040+J, 13 
8 1  ø  POKE  7+39+ J ,  I  HT  ( RND  ( 1  >  *3  >  +5  '•  NEXT 
815  FOR  ,T=54272  TO  54299 :  POKE  J,ø 
:  NEXT 

900  TF  7053248  THEN  STOP 
9 1 ø  X= 1 6ø  POKE  7 , X : POKE  7+ 1 , 2øø 
POKE  7+29,l: POKE  7+23,1 
: POKE  7+21 , 1 : L7= 1 : W=4 : E=8 
92ø  POKE  2047,238:  IF  PEEK <49 172)020 
6  THEN  GOSUB  2øøø 
925  POKE  49152, 6: POKE  49153,6 
: POKE  7+46.0 
930  SVS  53000 

933  S=54272 : POKE  S+24, 15 : POKE  S+5, 1 
: POKE  S +6 ,128: POKE  S+4 ■ 1 29 
POKE  S+1,12 
98ø  A=ø 

990  IF  A>  11+1.7*3  THEN  6øøø 
995  I F  (  PEER:  ( 5632 1  >  AND  16>=ø  THEN  GOS 
l  IB  62øø 

1000  FOR  J=1  TO  6:  TF  RND(  1  >«l-L7/2ø 
>0R  X  (  J  >  Oø  THEN  1ø5ø 
1 øø5  POKE  2040+J , 1 3 : X ( J >  =  1 8ø : V ( J >  =  1 2ø 
: A=A+1 

lølø  MX ( J >  =RND ( 1 >  * ( 5+L7/2 > -2-L7/4 
: POKE  7+39+ J , I NT ( RND ( 1 >  *3+ø > 

R(J>=U 

1  ø2ø  POKE  7+ ,1*2 ,  X  ( J  >  :  POKE  7+ 1  +  J#2 , 

V  < T > : POKE  7+2 i , PFFK < 7+2 1 > OR ( 2  TJ > 
GOTO  1080 
lø5ø  NEXT 

lø8ø  FOR  J=1  TO  6 ; IF  X(J>=ø  THEN  NEXT 
: GOTO  1110 
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j @85  TF  VCJK160  OP  R<J>=E  THEN  1095 

5øø2  RETURN 

1  @9ø  pfik'F  V+29 .  PFEK  <  V+29  >0R<2  t.T  > 

5ølø  S*=STR$<SC>  :  FOR  J=1  TO  LENCSf:- 

:  POKE  V+23  ,  PEEK <  V+23 >  OR  <  2 TJ > 

:  POKE  1 029+ J ,  ASC  <  ri  I D*  C  S$ ,  J ,  1  >  > 

:  p  C  .T  =F  :  MV  (  T  :•  =  W/.  <  .T  )  *2 

:  NEXT 

1092  FOR  H=S+7  TO  S+ 1 3 : POKE  N.øOJEXT 

5013  0= I HT < SCY 1 øøø  > ' I F  0>P  THEN  P=0 

1 993  POKE  3+24 ,15- POKE  S+12, 207 

: N3=HS+ 1  GOSUB  5øøø: GOSUB  5ø5ø 

: POKE  3+ 1 3 , 0 : POKE  3+8 , 1 ø 

5016  RETURN 

: POKE  3+11,33 

5ø2ø  FOR  1  =  1  TO  2  POKE  1064-NS*3+ 1  -  28 

1  095  V  ■:  T =  v  T  :>  +  p J  >  :  X  C  J  >  =X  <  J  >  +MX  <  J 

NEXT  HS=NS-1 = IF  NS>=ø  THEN  RETURN 

lløø  POKE  V+J*2,  X<  J>  :  POKE  V+ 1+1*2, 

5ø2 1  PR  T  NT "  ■:  Cl  R ,  CRSR  NED  1  ø , 

V<J) 

CRSR  HØJRE 1 4 ) GAME  OVER" 

1104  TP  VC  T':.<-;:22  AND  PFEK<2ø4ø+J>=13 

5022  PR  I  NT  "  •:!  CRSR  HØJRE  1 4 , 

THEN  llø? 

CRSR  NED  > C OP VR I OH TØ 1 986 " 

1105  X< J>=ø : POKE  V+21, 

5023  PR I NT " ( CRSR  HØJRE 1 4 , 

PEEK  <  V+2 1  >  AND  C  255-2  TJ  > 

CRSR  NED > BV  GIL.L.S" 

1 106  POKE  V+29 , PEEK  C  V+29  >  AND C  255-2  TJ  > 

5031  POKE  56334. PEEK C 56334  -AND  254 

: POKE  v+23 , PEEK < V+23 >  AND  C  255-2  TJ  > 

5032  POKE  788 ■ 49 ; POKE  789,234 

llø?  NEXT 

5033  POKE  56334, PEEK <56334 > OR  1 

lllø  I F < PEEK < V+3ø > AND  1)01  THEN  990 

: POKE  1 98 , ø : POKE  53249 , ø 

1111  POKE  V+21 , 1 ■ POKE  S+l 1 , ø 

POKE  54296,0 

1120  POKE  S+l, 4: FOR  1  =  1  TO  lø 

5034  I NPUT " < CRSR  HØJRE 1 4 , 

; POKE  3+24, 15- AES (6-1 > 

CRSR  NED > ET  NVT  SPIL  <  J/H>  ";XXT 

:FOR  J=ø  TO  7 : POKE  V+39, J 

5035  IF  XXT="J"THEN  RUN 

1130  FOR  H=1  TO  lø : NEXT : NEXT  NEXT 

5036  IF  XXT="N"THEN  END 

: POKE  3+24, 15 : POKE  3+1,12 

5ø5ø  FOR  N=3+1 4  TO  S +20 ; POKE  N.ø  NEXT 

1 1 4ø  GOSUB  5ø2ø : K=PEEK < V+3ø  > 

505 1  POKE  S+24 ,15: pøKE  3  + 1 9 , 6 1 

:  OflTO  1000 

POKE  S+ 1 5 , 3ø  POKE  S+ 1 8 ,17: RETURN 

2000  T=ø :  READ  TJF  TC999  THEN  STOP 

6øøø  POKE  V+21, 1  FOR  J-5  Tø  \  STEP-1 

2øø2  READ  Q : I F  0>=ø  THEN  POKE  J+T,Q 

POKE  49153, J: FOR  I=132-J*2ø  TO  1 

T=T+1  GOTO  2øø2 

42-J*2ø : POKE  S+l, I 

2øø4  IF  QO-99  THEN  GOTO  2øøø 

6ølø  FOR  H=1  TO  4ø  NEXT: NEXT  NEXT 

2006  RETURN 

:  SC=SP+I  V*75  :  GOSUB  50 1 0 

2ø2ø  DATA  49 1 72 , 206 , 0 , 1 92 , 1 73 , 0 , 1 92 , 

FOR  J=1  TO  3000: NEXT  LV=LV+1 

240,3,76, løø, 192 

6020  FOR  J=2  TO  6 'POKE  49153, J 

2030  DATA  1 73 ,1.1 92 .141.0.1 92 , 1 62 , 1 , 

FOR  I=142-J*2ø  TO  132-J*2ø  STEP-1 

254 , 32 , 2ø8 ,189,32,208, 4 1 , 255 , 233 , 

POKE  3+1,1  FOR  H=1  TO  40 

253, 48, 9 

6030  NEXT : NEXT  NEXT : W=W+1 : E=E+2 

2ø4ø  DATA  222 , 32 , 208 , 222 , 32 , 2ø8 , 222 , 

6ø4ø  GOTO  98ø 

32,208 

620ø  MX= ( 1 66-PFEK < V  > > /? 

2ø5ø  DATA  232 , 224 , 4 , 2@8 , 23ø , 76 , 1 øø , 

: POKE  V+ 1 4 , PEEK < V > 4 12+MX 

192,-1 

POKE  V+15,195  1=3 

2ø8ø  DATA  49252 , 1 73 , 1 , 220 ,41,4, 208 , 

62 1 ø  POKE  V+2 1 , PEEK  < V+2 1 >  OR  1 28 

15.1 73 . ø • ?øft 

FOR  J=195  TO  13ø+LV*2  STEP-3 

2ø9ø  DATA  233 , 1 05 , 48 , 8 , 1 73 , ø , 208 , 233 , 

622ø  POKE  V+15,J  1=1+1 

4, 141,0,208 

IF  1=5  THEN  I=ø: POKE  V+14, 

3øøø  DATA  1 73 , 1 , 22ø ,41, 8 , 208 , 15,1 73 , 

PEEK  <  V+ 1 4  >  +MX 

ø ,  208 

6280  K=PFEK<V+3ø> : IFCK  AND  128>=ø  TH 

EN  NEXT  GOTO  63øø 

3ø 1 0  DATA  233 , 218,16 , 8 , 1 73 , ø , 208 ,  1 05 , 

6234  FOR  N=S+ 1 4  TO  S+20P0KE  N,ø-NEXT 

4,141,ø, 208 , 76 , 49 , 234 , -  1 

6235  POKE  S+24, 15  POKE  3+19,14 

3ø5ø  DATA  53øøø , 1 2ø , 1 69 , 2ø ,141, 2ø , 3 . 

=  POKE  3+ 1 5 , 2 : POKE  3+ 1 8 , 1 29 

i  69 , 192.141  .2 1 , 3 , 88 , 96 , -99 

624ø  FOR  J=1  TO  6:IF<K  AND < 2 TJ > >  =ø  T 

5øøø  IF  N3>6  THEN  NS =6 ■ SC=SC+375 

HEN  NEXT 

: GOSUB  5ølø 

625ø  POKE  2040+ T.  i5:SC=sr:+25 

5øøl  FOR  J=lø62  TO  1 ø65-N3*3  STEP-3 

GOSUB  5ølø 

=POKE  J, 65: POKE  J+ 1,66  POKE  J+D,ø 

63øø  POKE  V+2 1, PEEK < V+2 1> AND  127 

POKE  J+l +D, ø : NEXT 

: RETURN 
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KING-KONG 
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Siger  navnet  dig  noget?  Yderlige¬ 
re  forklaring  burde  være  unødven¬ 
dig,  men  alligevel:  Du  er  en  stor 
abe,  der  skal  forcere  en  masse  rul¬ 
lende  tønder  på  vej  op  til  toppen  af 
skærmen.  Spillets  ide  er  ikke  su- 
pemy,  men  grafikken  er  flot  og 
gennemført!  Alletiders  abe-gode 
action  til  en  uudvidet  VIC-20. 

Claus  L  Pedersen 
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8  REM  5  **CLRUS. PEDERSEN#* 

1  GOT046 

2  L=L~W :  PR  I  NT  "  «a"  L  “  II  "  :  I  FL<WTHEN42 

3  0NJG0T027, 30/ 35,35/ 35, 35 

4  P0KE37154, 12? ; Jø=-<<P£EK<37152)fiND128>=. ) :P0KE3?154,255 : Z=PEEK(37151 ) : J2=- 
NB16>=. ) 

5  X=-<<ZAHBE>=. >  IFJøORPEEK< 197>=34THENB=W  GØT022 

6  IFJ20RPEEI« 197)=33THEND=-M = I FPEEK < fl+D >G0T02ø 

7  IFXORPEEKX 1 97>=35THENP0KEV-2, 150  =  J=W ; L=L-2ø : G0T027 

8  F=F+W: IFPEEK<F)=ETHENP0KEF-W,E:P0KEF,6+INT<RNB<. )*2) :G0T011 

9  IFPEEK<F>=. THENP0KE77 1 1,15- POKEF-M, E ; F=7712 : GOTO 14 
1 ø  POKEV-W ,14«: ROKEF-W , E : G0T039 

11  IFPEEK','F+22)  =  .  THEN14 

12  POKEF ,  E :  F=F+22  =  P0KE771 1 , 12 :  IFPEEK<F>=ETHENPOKEF,  6+INT<RNDO.  >*2>  =  GOTO  14 

1 3  POKEF , 25 : POKEV-W , 1 4ø : G0T035 

14  G=G+N : IFPEEK>;G>=ETHENPOKEG-W, E : POKEG , 6+ 1 NT  <  RHD  < . >*2> : GOTO 17 . 

15  IFPEEK<G)=. THENP0KE771 1,15: POKEG-W, E : G=7712  =  G0T02 

1 6  POKEV-W ,14ø: POKEG-M , E  =  G0T039 

17  I FPEEK <  G+22  > = . THEH2 

18  POKEG, E ; C=G+22;P0KE771 1 » 12 : IFPEEK<G>=ETHENP0KEG,6+INT<RND< • )*2> ;G0TG2 

19  POKEG, 25 : POKEV-W,  14ø  =  G0T039 

2ø  I FPEEK < fl+D >=ETHENR=fl+D : POKEfl-D, E  =  POKER, 3 : G0T08 

21  POKER  ,.E :  fl=A+D  •  POKER,  25  '•  POKEV-W,  16ø :  G0T039 

22  I  FPEEK  <  fl+D  >  =£THENfl=fl+D :  POKEfl-D ,  E :  POKER ,  5 :  G0T024 

23  I F  PEEK <  fl+D  > =6THENP0KEfl , E : fi=fl+B  =  POKER , 25 : POKEV-W ,160: 00T039 

24  IFPEEK<fl+22)=. THEN8 

25  POKEV-2, 14ø; I FPEEK ( fl+22 )=ETHENPOKEfl, E • R=A+22 • POKER, 5 ; POKEV— 2, ■ :G0T08 

26  POKER, ER=R+22: POKER, 25: POKEV-2,. : PQKEV-W, 160:G0T039 

27  J=J+W : I FPEEK < fi-22 ) =ETHENA=R-22 : POKEfl+22, E : POKER, 4+D : G0T08 

28  I FPEEK < fl-22 ) =WTHENfl=fl-22 : POKER+22, E : POKER, 4+D : G0T043 

29  POKER, E : R=R-22 : POKER, 25 : POKEV-W, 16ø = G0T039 

30  POKEV-2, 160 : J=J+W : IFPEEK<fl+D)=ETHENfl»fl+D : POKER-D, E : POKER, 4+D ; G0T033 

3 1  I FPEEK  <fl+B> *WT HENfl=fl+D : POKER-D , E : POKER , 4+D : G0T043 

32  POKER,  E :  fl=fl+D  •'  POKER,  7  =  POKEV-W,  16ø :  G0T039 

33  I FPEEK < fl+22 > = . THEN J= . :P0KEV-2,. 

34  G0T08 

35  POKEV-2, 14ø : J=J+W : I FPEEK (fl+22 >  =ETHENR=fi+22 : POKER-22, E : POKER, 4+D : G0T037 

36  POKER, E : fl=fl+22 : POKER, 7  POKEV-W, 16« : GØT039 

37  I FPEEK  <  fl+22 ) =ETHEH8 

38  POKEV-2,.  J=. : GOTOS 

39  POKEV-2 , .  :  POKER ,  25 :  POKEV-W , .  :  PRINT" »aUUHUU^Mgh'OU ' RE  DERD " 

4ø  I FPEEK  < 1 97  >  =ETHEHRUN 

41  G0T040 

42  POKEV-2,.  : PRINT"«  «S«BWiT^jTiMAJDUT  OF  ENERGY"  : G0T040 

43  POKER, 8 :F0RX=lT02ø: POKEV-2, INT<RND<1 >#10+240) :F0RY*1T060:NEXT:NEXT  PQKEV- 
POKER,E 

44  fl=8161 : P=P+1 : J=. : I FP<3THEN0NPGGT 059 , 62 

45  PRINT" «S((I(DSleW:TiTifiTiT:TsT:fiWOU  WIN !  !  “  : G0T040 

46  PR  I  NT" n"  :  P0KE52 , 28 :  P0KE56 , 28  •'  P0KE5 1 ,  PEEK  <  55  )  :  CLR :  fl=256*28+PEEK  <  5 1 ) 

47  F0RX=256T0264 : POKEX+fl, . :NEXT:F0RX-.T0127:READDP0KEX+A,D:NEXT: V=36878:P0h 

,255 

48  POKEV, 15 : POKEV+1 , 104 : fl=8161 = C=2 

49  DATR255, 255, 24,36, 66, 129, 255, 255, 56,56,48,60, 48,48,48,56 

50  BflTA28,28, 12,60, 12, 12, 12,28,28,28, 12,60, 12,28,22,50,56,56,48,60,48,48,48. 

51  DAT A56, 56,48,60, 48, 56, 104, 76,60, 126,219,231,231,219, 126,6ø,6ø, 126,239,227 
,247 

52  DATR126, 60, 231, 231, 195,255, 195, 195, 195,231,3,7,5,7,5,6,31,63, 192,224,160, 
16ø 

53  DRTR96, 248, 252, 127, 255, 238, 238, 237, 207, 239, 231, 254, 255,119, 119, 183, 243, 2-’ 
1,7, 15, 15 

54  DRTR14, 14,3ø,3ø,3ø,224,240,24ø, 112, 112, 12ø,12ø, 12ø, 252, 254, 254, 239, 231, 27. 
7, 195 

55  PRINT” nfcT&VTsT;T:M:1  w  ft  fl  RMIHHHI  Ml  MMMMMM»M@MniiMM)lllMMG!XllllC' 
Iteøøøø" ; 

56  pr  i  nt  " 

5  7  PR  I  NT  "  MlieøijØMISiseonifene  "  :  G0SUB65 

58  G=79øl : F=7712 : D=-l : POKER, 2 : E=32 : L=2øøØ : W=1 = G0T02 

59  PRINT" k  fl  fl  MIIM1III  Ml  888(>083@00M£@0@MI388GMO888M£@Gør 

a"j 

6«  PR  I  NT 1 "  MH''i;'i«aMfii50i5MI»aer?MI»iseøMr‘!r»i»i;MH!i»i»eM>“SøeMG00aMl5i“i“ØMIi!0ai;  " ; 

61  pr  i  nt  "  Mii;M@MiMM@MM@MM@M@MriKri£ " = gosuess = R=8i6ø = poker,  2 :  f=7712  =  c 
5 : G0T02 

62  PRiNT"3iysTasiaaasH  k  r  Mimiin  mi  MMMMMMiMMHiMMMeaiiMMiMM' 
øM"; 

63  PR  I  NT  "  MlsøMlsøMBøøøMfeiiisaMliøøisMUieuiØøMlarsiiiSfiMIsøeMliøøMeeøiJiiiiMtsøøø  " ; 

64  pRiNT“MBeeesee@eeeeeeeeeeeeninis"  =  gosub65 : r=816ø ■■  poker,  2 : F=77i2  g=7945 ■■ 

2 

65  PR  I  NT  "  if;t:T;T:T:T:T:Tj»  I  JM*K.LM«I'1NI£M1I5@@  " ;  '•  RETURN 


TFIST 


Soettrum 


U 


7W 


é  V,a 


fy 


* 

% 


Med  det  gigantiske  programbi¬ 
bliotek  af  'sikkerhedskopier',  du 
efterhånden  har  fået  opbygget,  er 
det  sikkert  svært  at  finde  rundt 
mellem  dem.  Løsningen  på  dit  pro¬ 
blem  er  at  få  omslag  på  dine  kas¬ 
setter.  Men  i  stedet  for  at  tegne 
dem.  eller  på  anden  vis  fuske  dig 
frem  til  dem.  kan  du  med  dette 
program  tage  en  kopi  af  et  vilkår¬ 
ligt  skærmbillede  på  din  Spec¬ 
trum.  Programmet  er  blevet  te¬ 
stet  på  en  Seikosha  GP-505.  men 
det  skulle  også  virke  til  andre  gra¬ 
fiske  Spectrum-printere. 


1  CLEAR  514.55:  PRPER  6:  INK  ø 
CLS  :  PRINT  AT  10,  ø; "KODEN  IND 
KØRES  -  ET  ØJEBLIK":  GO  TO 


.20  lL5  :  PRINT  "Dette  program 
9 x ve r  kasse t te baan "  '  '  "de t  et  pro 
tes s ionet  le  lo o k " ' ' ' "De t  er  samt 


36  -  TAST 


TAST 


i  d  i  g  nemt  at  overskue . hvad  u  a 

n  har  af  program ner  paa  "''"baan 
dene  " 

3ø  PRINT  -•"■Der  er  2  nu  lighede 
r  til  forsiden "''"enten  en  oCREE 
N*  eller  TEKST" 

4ø  PRINT  HØ.;  "Tryk  en  tast  for 
at  starte":  PAUSE  ø 

50  CL3  :  PRINT  AT  4,0; "TAST  1 
for  en  SCREEN $  " ; AT  6, ø; "TAST  2 
for  en  TEKST"; AT  8,ø,"T&ST  3  for 
at  STOPPE" 

55  PRINT  at  i4,ø; "Dette  progra 

m  inddeler  selv  baan . det  i  si 

de  l  og  2"  '  "Ry9  te  ks  ten  er  seivj 
us  te  rende " 

60  INPUT  S 

70  IF  S  < 1  OR  S >3  THEN  GO  TO  60 
SO  GO  TO  2000+  (500  AND  5=2) -(1 
000  AND  S =3) 
løøø  STOP 

2øøø  CLS  :  PRINT  AT  lø,ø;"GøR  DI 
N  SCREEN  $  KLAR  FRA  BAAN-  DET  , 
OG  TRYK  EN  TAST  ,  NAAR  DU  ER  KLA 
R" 

2005  PAUSE  0 

2010  LOAD  ""SCREEN* 

2012  LET  t=ø 

2014  REM  2015=  S  AAAAAA  OSV  B 

2015  L PRINT  " - 

- X" 

2020  COPY 

2100  L PRINT  :  LPRINT  :  GO  TO  22ø 

ø 

2200  CLS  :  PRINT  AT  10 , ø; "Te ks te 
n  til  kasettens  bagside"; AT  12, ø 
;  "max  .  16  karakterer" 

2205  PRINT  AT  16,0; "KUN  STORE  BO 
GSTAUER  ,  TAL  OG  . " 

2205  POKE  23653,6 

2210  input  "teksten  ";a* 

2220  POKE  2365S , 0 
2299  GO  TO  3300 

2500  CLS  :  PRINT  AT  3,0;  INUERSE 

i; ;;  maximum  23  programmer 

2501  input  "Hvor  mange  p rog ramme 
r  ?  (1-23)  ";t 

2502  IF  t  >23  THEN  GO  TO  2500 

2504  LET  k  =0 

2505  DIM  3 ( t ) :  DIM  b(ti:  DIM  C* i 
t  ,24) 

2510  FOR  n  al  TO  t 

2514  PRINT  AT  19, ø;" 

2515  PRINT  AT  20,0; "FØRSTE  TAL  ? 
" , n ; " . " ; "Pr  og  ram " 

2520  input  a(r.) 

2523  PRINT  AT  20,0; "ANDET  TAL  ? 

" ; n ; " . "Program " 

2525  INPUT  b ( n ) 


59ø  GO  TO  2200 

600  LPRINT  :  LPRINT  TAB  S,  "SIDE 
2":  LPRINT  :  LET  S=l:  GO  TO  257 


PRINT  AT  21,0;" 


2528  input  "Teksten  (max.  24  bog 

staver  " ; c  %  ( n ) 

2529  IF  k=l  THEN  GO  TO  2700 
253ø  NEXT  n 

254ø  GO  TO  2700 

2544  REM  2545=  S  AAAAAA  OSV  B 

2545  LPRINT  " - 

- XS"  :  LPRINT 

2549  LET  S =0 

2550  FOR  n  =1  TO  t 

2555  IF  r.  US  THEN  LPRINT  :  GO  TO 
22øø 

2560  LPRINT  ;  "  "  AND  a(r.)<løø;" 

"  AND  a  (r.)  <lø,  a  (n)  ;  "  AND  b 

(n)<iøø;"  "  AND  b  (n) <lø; b  (n) ; "  " 

.  c  *  ( n  ) 

2SoS  IF  air. +  (l  AND  n<t))<a(n)  TH 
EN  GO  TO  2600 
2570  NEXT  r. 

2580  FOR  r.  =  t  +  (3  AND  s=l)  TO  22: 
LPRINT  :  NEXT  n 


2":  LPRINT 

0 

2650  PRINT 


2650  PRINT  PRINT  TI 
2"  :  PRINT  '  :  GO  TO  27i 
2700  CLS 

2705  FOR  n  al  TO  t 
2710  PRINT  , "  "  AND  a 
AND  a (n i  <10; a (n) ; , 

n )  < løø ; "  "  and  b (n)  < u 

c  *  ( n ) 

2715  IF  a(n  +  (l  AND  r.< 
EN  GO  TO  2650 
2720  NEXT  n 
2730  INPUT  "Er  du  til 
e  1 1  e  ( j  /n )  " ;  w  * 

2735  IF  W*="J"  OR  w*  = 
TO  2545 

2740  INPUT  "Hvilken  l 
ettes  ";n:  LET  k  =  l:  Gi 
2755  IF  a  (n  +  ( 1  AND  n < 
EN  GO  TO  2650 
2780  DIM  y  *  (32) 

2761  FOR  n  al  TO  31:  RI 
y*(n)aCHR*  a:  NEXT  n 
2790  PRINT  AT  0,0; y* 
2500  LET  p=ø 
2310  FOR  n =514S6+P  TO 
OKE  r.,ø:  NEXT  n 
2512  FOR  n =51552+p  TO 
OKE  r.  ,0.  NEXT  n 
2315  IF  p=0  THEN  POKE 
POKE  51569,192 
2320  FOR  n  =51534  +p  TO 
EAD  a:  POKE  r.,a.  NEXT 
2530  FOR  n =5 1664  +P  TO 
OKE  n , ø  NEXT  n 
234ø  FOR  r.  =51720 +p  TO 
EAD  a  POKE  r.,a:  NEXT 
235ø  FOR  n  =5192S+p  TO 
OKE  n , ø  NEXT  n 
2360  FOR  n =5 1976  +p  TO 
EAD  a.  POKE  r.  ,a:  NEXT 
2362  FOR  n =51472+P  TO 
EAD  a :  POKE  n , a :  NEXT 
2365  IF  P  =1024  THEN  G 
2370  LET  P  =  1024 
2530  GO  TO  2310 
2900  FOR  r.=ø  TO  31:  R 
USR  "a  "  +r. ,  a  :  NEXT  n 
2950  GO  TO  lø 
2990  DATA  127,32,77,7 


PRINT  TAB  3; "SIDE 
GO  TO  2720 


a  (r.)  <  løø,  1 
"  AND 


Il  t  ,  .  n  i  + 

b  (n )  < lø;  b  (ni  ; 


n  <  t )  )  <  a  ( n ) 


ti l freds 


*="j"  THEN  GO 

linie  skal  r 
GO  TO  2515 
n  <  t )  i  <a  (n)  th 


READ 


51471+p.  P 
515S3+P:  P 
51563, 192: 


51663+P 

51719+P 

51927+P 

n 

51975+P 

52133+P 

n 

51551+P 

n 


2365  IF  P  =1024  THEN  GO  TO  29øø 
2370  LET  P  =  1024 
2830  GO  TO  2310 

2900  FOR  n=ø  TO  31:  READ  å.  POKE 
USR  "a”+n,a:  NEXT  n 
2950  GO  TO  lø 

2990  DATA  127,32,77,79,71,69,73, 
83 , 32 , 65 , 66 , 82 , 65 , 72 , 65 , 77 , 33 , 69 
,76,32,44,32,72,43,75,71,32,49,5 
7 , 56 , 54 

3000  DATA  0,0,15,15,60,60.51,51, 
0,0,0,0,0,0,63,63,0,0,15,15,48,4 
3,43,48,0,0,12,12,51,51,51,51,0, 
0,0,0,0,0,63,63 

3005  DATA  0,0,43,43,51,51,51,51, 

0,0,0,0,51 ,51,51,51,0,0,60,60,51 

, 51, 43, 4S,é,ø, 12, 12,51,51,51,51, 

0,0,15,15,43,43, 45 , 43 

3010  DATA  0,0,15,15,43,43,43,43, 

0,0,12,12,51,51,51,51,0,0,12,12, 

43,43,43,43,0,0,3,3,12,12, 43 , 43 , 

0,0.43,43,51,51,51,51 

3015  DATA  0,0,48,43,51,51,51,51, 

0,0,12,12,43,43,48,43,0,0,63,63, 

3,3,3,3,0,0,48,43,43,43,63,63,0, 

ø , 63 , 63 , 0 , ø , 0 , ø 

3ø2ø  DATA  ø,ø,ø,ø,4S,43, 12, 12,0, 
0,0,0,0,0,0,0,0,0,63,63, 12, 12,3, 
3,0,0,63,03,0,0,0,0,0,0, 15, 15, 4S 
, 43 , 43 , 4S 

3025  DATA  ø , ø , 15 , 15 , 43 , 43 , 4S , 43 , 

0,0,15, 15,4S,4S,4S,48,ø ,ø, 15, 15, 

43,43,48,43,0,0,0,0,51,51,51,51, 

0,0,43,48,43,48,48,43 

3030  DATA  0,0,63,63,0,0,0,0,0,0, 

63 , 63 ,ø,ø, ø,ø, 0,0, 63 , 63 , ø , ø , ø , ø , 

0,0,43,48,12,12,3,3,0,0, 43 , 43 , 12 

,12,3,3,0,0,48,48,60,60,51,51 


TAST  -  37 


TAST 


3ø5ø  DATA  ø.,  ø,£52,  £52, 192.,  192, 19 
2 , 192 ,0,0, 24.0  ,  £40 , 12,12,12,12,0, 
ø , 4  S , 4  S , 12, 12,12,12,0,0, 192, 192. 
43,43,12,12,0,0,12,12,12,12, 12  ,  i 

3ø55  DATA  ø,ø,ø, 0,0,0,0,0,0,0,24 
ø , 240 , £04 , £04 , 204 , 204 ,0,0, 252 , 25 
2,0,0,0,0,0,0,12,12,12,12, 252 , 25 
£,ø,0, 240 , 240 , 12 , 12,12, 12 
3060  DATA  0,0,12,12,43,43,192,19 
2,0,0,12,12,12,12,12,12,0,0, 252 , 
252,0,0 .0,0,0,0,252,252,43,43, 19 
2, 192,0,0,240,240, 12,12,12, 12 
3070  DATA  ø,ø,ø,ø,19£,192,192,19 
2,0,0,240,240, 12,12,50,60,0,0,12 
,12,240,240.192, 192 , 0 , ø , 24ø , 240 , 
12,12,12,12,0,0,0,0,0,0,0,0 
3075  DATA  0,0,240,240,12,12,12,1 
2,0,0, 192, 192,48,48, 12,12,0,0,24 
0,24ø, 12, 12,43,48,0,0, 12, 12, 4S, 4 
S, 192, 192,0,0,0,0,0,0,0,0,0,0, 12 
, 12,12,12,12,12 

3100  DATA  0,0,240,240,12,12,12,1 
2,0,0,12,12,12,12, 252 , 252 ,0,0,12 
, 12 , 204 , 2ø4 , 204 , 204 ,0,0, 24ø , 24ø , 
12,12,12,12,0,0,48,43,48,43, 252 , 
252 

3105  DATA  ø,ø,24ø,24ø,12,12,12,l 
2,ø,ø, 24ø , 240 ,12,12,12,12,0,0,0, 
0,0,0, 192 . 192 ,0,0, 24ø , 240 , 12 , 12 , 
12,12.0,0, 240 , 240 , 204 , 204 , 204 , 2ø 
4 

3120  DATA  43,43,43,43,15,15,0,0, 
43, 48, 12, 12,0, 0,0, 0,43, 48, 43, 4  S  , 
12, 12, 0,0, 43, 4S,4S, 48, 12, 12,0,0, 
12,12,3,3,0,0,0,0 

3125  DATA  51,51,51,51,63,63,0,0, 
51,51,51,51, 15, 15,0,0,48,43,43,4 
S , 43 ,43,0,0,51,51,51,51, 12, 12,0, 
0,45,43, 43 , 43 , 15 , 15 ,0,0 
3135  DATA  43,43,43,43,15,15,0,0, 
51,51,51,51,63,63,0,0,43,43,43,4 
3,15,15,ø,ø, 43 ,43,43,43 , 63,63,0, 
0,51,51,51,51,63, 63 ,0,0 
314ø  DATA  51, 51, SI, 51, 63, 63, 0,0, 
43,48,48,43, 15, 15,0,0,3,3,3,3,63 
,63,0,0,48,43,43,48,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 

3145  DATA  3,3,3,3,63,63,0,0,0,0, 
ø,ø,63,63,ø,ø,3,3,12,12,63,63,ø, 
0,3,3,12,12,63,63,0,0,48,43,48,4 
3, 15, 15,0,0 

3150  DATA  48,43,48,43,63,63,0,0, 
48,43,48,43,15,15,0,0,48,43,46,4 
8 , 63 ,63,0,0,51,51,51,51, 12, 12 .0, 
ø , 63 , 63 , 48 , 48 , 43 . 43 , 48 , 46 
3155  DAtA  ø,ø,ø,ø,63,63,ø,ø,ø,ø, 
0,0,63,63,0,0,0,0,0,0,63,63,0,0, 
3,3, 12, 12, 43, 43, 0,0, 0,0, 3,  *o,  12, 1 
2,43,43,43,43,43,43,43,48,0,0 
317ø  DATA  192,192,192,192,252,25 
2,0,0,12,12,12,12, 252 , 252 , 0 , ø , 12 
,12,12, 12 , 240 , 24ø ,0,0,12,12,12,1 
2 , 252 , 252 ,0,0,12,12,12,12, 252 , 25 
2,0,0 

3175  DATA  ø , ø , ø , ø , 252 , 252 , ø , ø , 12 
, 12 ,12,12, 240 , 240 ,ø,ø,ø,ø,ø,ø,25 
£ , 252 ,0,0,12,12,12,12,0,0,0,0,12 
, 12, 12, 12,240,£4ø,ø,ø 
3130  DATA  0,0,0.0,252,252,0,0,12 
, 12, 12, 12,252,2S2,ø,ø,ø,ø,ø,ø,25 
2 , 252 ,0,ø, ø,ø, ø,ø, 252 , 252 , ø , ø , 12 
, 12, 12, 12,24ø,24ø,ø,ø 
3185  DATA  192,192,192,192,252,25 
2,0,0,204,204, 12, 12,240,240,0,0, 
192 , 192 , 192 , 192 , 252 , 252 ,0,0,12,1 
2,12,12,43,43,0,0, £52 , 252 , 0 , 0 , 0 , 

319ø  DATA  12,12,12,12,240,240,0, 
0,12,12,45,43, 192 , 192 ,0,0,43, 43 , 
12 , 12 , 24ø , 240 ,0,0, 192 , 192 , 43 , 43 , 
12,12,0,0, 252 , 252 ,0,0,0,0,0,0,20 
4 , 204 ,60,60,12,12,0,0 
32øø  DATA  2ø4,2ø4,6ø,6ø,24ø,24ø, 
ø,ø,12,12,12, 12,0,0,0,0,204,204, 
£04  ,  £04 , 60 , 60 ,0,ø,  12  ,  le-  ,  li  ,  12 , 43 
, 43 ,ø,ø, 43 , 43 , 43 , 45 , 24ø , 240 ,0,0 


32ø5  DATA  12,12,12,12,43,43,0,0, 

12 , 12 , 12 , 12 , 240 , £4ø ,0,0,60,60,0, 

0,0,0,0,0,12,12,12, 12,24ø,24ø,ø, 

0,204,204,204,204,0,0,0,0 

3210  DATA  ø,ø, 0,0,0,63,0,0,0 ± 131 

,69,43,16,43,69,131,ø,ø,ø,ø,d3,ø 

,0,0,63,0,0,0,0,0,0,0 

33øø  PRINT  AT  16,0, "DET  UARER  LI 

GE  ET  LILLE  ØJEBLIK" 

3303  DIN  £  $  i.  LEN  3$):  DIM  f  $  i  LEN 
a  4 )  :  DIM  g  $ ( (LEN  a  $) *2) 

3304  FØR  n  =  1  TØ  LEN  3$ 

3305  IF  a  $  i.n  i  =CHR$  32  THEN  LET  £ 
$  'Ti )  =CHR$  93:  LET  f$(n)=CHR$  93 
3307  IF  3  $  (n !  =CHP$  46  THEN  LET  é 
*(n) =CHR$  46  LET  f$(n)=CHR$  93 
331ø  FØR  hi  =43  TØ  90:  IF  a$(n)=CH 
R  $  f«  THEM  LET  e$(r.)=CHR$  ru  :  LET 
f*(n)=CHR*  (»+((32  AND  CODE  CHR$ 

fii  >64  AND  CODE  CHR $  lft<91) -(14  AN 
D  CODE  CHR  $  rii  <53  AND  CODE  CHR$  m 
>47) i ) 

3320  NEXT  lu 
3330  NEXT  ri 
3335  LET  p=l 

3340  FØR  r.  =  1  Tø  (LEN  a$*2>  STEP 
2:  LET  g  $  er. )  =£  $  (R  )  :  LET  g$(n  +  l)  = 
f  *  ( P  ) 

3345  LET  p=p+l 
3345  NEXT  r. 

3350  POKE  236ø7,2øø 

3360  LPRINT  TAB  ((32-LEN  a$*2)/2 

)  ,  9* 

3370  PØKE  23607,204 

3330  LPRINT  TAB  ((32-LEN  a$*2)/2 

>  ,9  $ 

3382  PØKE  23607,60 

3335  IF  t>18  THEN  LPRINT  .  LPRIN 
T  .  FØR  n =20  Tø  t:  LPRINT  ,  "  "  A 
ND  a(n)<løø,"  '•  AND  a  (n )  <  lø;  a  (n ) 
"  AND  b(n)<100,"  "  AND  b ( 
n  i  <  lø,  b  (n  i  ;  “  " ;  c  $  (n )  :  NEXT  n 

3391  CL 5  PRINT  AT  ø,ø;  "Hvi  Uen 
af  disse  2  typer  kase t te " ' " brug 

er  du  denne  gang”)  flash  i,;"?": 
flash  ø 

3392  LET  w =ø 

3393  LET  t  $  =  "TEKST "  :  FØR  r.  =  l  Tø 
5:  PRINT  AT  s+n  ,  11;  t$  (n)  ;  AT  8+n, 
23;t$(n):  NEXT  n 

3394  PLOT  5 6  +  w  ,64:  DRAU)  0,56:  DR 
AU  29,-5:  DRAU  0,-56;  DRAU  -29,3 
:  PLOT  S 7  +  w , 5 6 :  DRAU  3,2:  DRAU  ø 
,56:  DRAU  -3,-2:  PLOT  95+W,114: 
DRAU  -31,3:  DRAU  -5,-3 

3395  IF  mi  =96  THEN  GØ  TO  3397 

3396  LET  w =96 .  Gø  TG  3394 

3399  FOR  ri  =56  TO  112  STEP  3:  PLO 
T  8ø  ,  r.  :  NEXT  n 

34øø  FØR  r.  =61  TO  117  STEP  3:  PLu 
T  163, H:  NEXT  n 

3401  PRINT  HT  16,7, "TYPE  1",AT  1 
6, 19; "TYPE  2" 

34ø2  print  "  (kort  omslag )  £l 
angt  omslag)" 

3403  PRINT  FLASH  1 , AT  3 , 3 . " > " ; AT 
10,8;  ••>";  AT  12,8;  "  >  "  ;  AT  3,20, "> 
"  ;  AT  lø,£ø,  ">",  AT  12,20. 

34ø4  INPUT  "Type  (1/2)  ?",S 
3405  IF  s ; 1  OR  S >2  THEM  GØ  TG  34 
04 

34ø3  FOR  r,  =1  TO  10-  (3  AND  S=l)-i 
ft -17)  AMD  018):  LPRINT  :  NEXT 
n 

3409  IF  S =2  THEN  Gø  TO  3419 
341ø  REM  3411  =  ®  DDDDDD  OSV  B 

3411  LPRINT  "  -  -  - 

- >r 

3412  GQ  TQ  50 

3413  REM  3419  =  @  CCCCCC  OSV  B 

3419  LPRINT  " - 

- >4" 

3420  GO  TO  50 

3500  SAUE  "kassette"  LINE  1 
3510  CLS  :  PRINT  ”  UERIFY  "kasse 
tte'  " 

3520  UERIFY  "kassette" 
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34  PR I NT " C RVS  ON , SPACE40 , RVS  OFF > " ; 

36  FOR  fl=l  TO  7 

37  PR I NT " C RVS  ON , SPACE , RVS  OFF , 

SPACE 38 ,  RVS  ON ,  SPACE ,  RVS  OFF  )  " 

38  NEXT 

40  PR  I  NT  "  <  RVS  ON ,  SPACE40 ,  RVS  OFF  >  " 

42  REN  *******  VARIABLER  ********** 

44  H  J*=  "  C  HOME  ,  CRSR  NEB16, 

CRSR  HØJRES) " 

45  TX*= " C HOME , CRSR  NED 1 3 , CRSR  HØJRE , 
SORT)" 

46  PO*= "  C  HOME ,  CRSR  NED  1 6  , 

CRSR  HØJRE 17)" 

47  FL*= " C HOME , CRSR  NED 1 8 , 

CRSR  HØJRE  17)" 

5ø  REM  ******  HOVED  PROGRAM  ******* 

52  FL=FL+1 

53  ON  FL  GOSUB  5øø, 51 ø, 52ø, 5Sø, 540, 
55ø  •  560  ,  570  ,  58ø  ,  59ø  .•  6øø  ,  6 1  ø  ,  620  , 
63ø  ,  64ø ,  65ø  ,  67ø 

54  PR  I  NT  PO* "  (  SORT  )  PO I  NT  :  " ;  PO 

'  PR  I  NT  FL*  ;  "  <  SORT  )  FL  AG  NR :  " FL 

55  PRINT  HJ*.:  :  IF  FL=18  THEN  660 

56  PRINT  HJ* Al $  ■  PRINT  HJ*; 

"  C  CRSR  NED  )  " A2*  :  PR  I  NT  HJ*  ; 

"  <  CRSR  NED2 ) " A3*  :  PR  I  NT  HJ* ; 

" < CRSR  NED3 ) " ; A4* : PR I NT  HJ* ; 

" (CRSR  NED4)MA5* 

57  SVS  65499: PRINT  TX*; 

:  PR  I  NT  "  TAST  LANDETS  NAVN  " ; 

: INPUT  L* 

58  T =VAL C T li ) 

59  C=LENCS$)  :  B*=LEFT*CL*, C) 

:  IF  B*OS*THEN  65 

6ø  IF  T < 1 ø  THEN  P0=P0+5ø 

61  IF  T> 1 ø  AND  TC2ø  THEN  PO-PQ+25 

62  IF  T>2ø  AND  T<5ø  THEN  P0=P0+5 

63  PRINT  TX*; "(SORT) DET  VAR  RIGTIGT, 

FLOT  !  !  "  :  GOTO  67 

65  PRINT  TX*;" 

II 

66  PRINT  TX*; "FORKERT  !'  DET  VAR  MS* 

67  PRINT  PO*,  "C SORT) POINT  '•  "  ;  PO 

:  PR  I  NT  FL* ;  "  C  SORT  )  FLAG  NR :  "  FL 
69  FOR  VENT=.l  TO  1 500 :  NEXT  VENT 

496  PRINT  TX*;"TRVK  EN  TAST  FOR  ET  N 
VT  FLAG 

497  GET  A* ; I F  A*=" "THEN  497 

498  PRINT  TX*;" 

H 

499  GOTO  5ø 

5øø  REM  *********  FLAG  ************ 


5øl 

REM  ***  IRLAND  *** 

502 

Al*=" <L. GRØN, 

RVS  ON, 

SPAGES, 

HVID, 

SPAGES, ORANGE, 

SPAGES) 

II 

503 

A2*=" <L. GRØN, 

RVS  ON, 

SPACE3, 

■HVID, 

SPACE3, ORANGE, 

SPAGES) 

il 

504 

A3*= "CL. GRØN , 

RVS  ON, 

SPACE3. 

■HVID, 

SPAGES, ORANGE, 

SPAGES) 

Il 

5ø5  A4*= "CL. GRØN , RVS  ON , SPACE 3 , HV I D , 
SPACE3, ORANGE, SPAGES) " 

506  A5*= " C  L . GRØN , RVS  ON , SPACE3 , HV I D , 
SPACE 3 , ORANGE, SPACE 3 ) " 

508  S*=" IRLAND" 

509  RETURN 

51ø  REM  ***  THAILAND  *** 

511  A 1 *=" < RVS  ON , RøD , SPACE9 ) " 

5 1 2  A2*= " C HV I D , RVS  ON , SPACE9 ) " 

5 1 3  A3*= " C RVS  ON , BL A A , SPACE9 ) " 

514  A4* = " C HV I D , RVS  ON , SPACE9 ) " 

5 1 5  A5*= " C RVS  ON , RøD , SPACE9 ) " 

516  S*="THAILAND" 

517  RETURN 

52ø  REM  ***  BELGIEN  *** 

521  Al *= " C RVS  ON , SORT , SPAGES , GUL , 
SPACE 3 , RØD , SPACE3 ) " 

522  A2*= " < RVS  ON , SORT , SPAGES , GUL , 
SPAGES, RøD, SPAGES )" 

523  A3*=" C RVS  ON , SORT , SPAGES , GUL , 

S PACE 3 , RøD , SPAGES ) " 

524  H4*= " < RVS  ON , SORT , SPACE3 , GUL , 
SPAGES, RøD, SPAGES) " 

525  A5*= " < RVS  ON , SORT , SPACE 3 , GUL , 
SPACE3, RøD, SPAGES )" 

526  S*3" BELGIEN" 

527  RETURN 

53ø  REM  ***  UNGARN  *** 

53 1  A 1 *= " < RVS  ON , ORANGE , SPACE9 ) " 

532  A2*= " C  RVS  ON , ORANGE , SPACE9 ) " 

533  A3*= " C RVS  ON , HV I D , SPACE9 ) " 

534  A4*= " < RVS  ON , L . GRØN , SPACE 9 ) " 

535  A5*=  "  RVS  ON ,  L .  GRØN ,  SPACE9 ) " 

536  S*=" UNGARN" 

537  RETURN 

540  REM  ***  TVSKLAND  *** 

541  Al *= " C RVS  ON , SORT , SPACE9 ) " 

542  A2*= " < RVS  ON , SORT , SPACE9 ) " 

543  A3*= " < RVS  ON , RøD , SPACE 9 ) " 

544  A4*= " < RVS  ON , GUL , SPACE9 ) " 

545  A5*= " C RVS  ON , GUL , SPACE9 ) " 

546  S*=" TYSKLAND" 

547  RETURN 

55ø  REM  ***  ØSTRIG  *** 

55 1  A 1 *= " < RVS  ON , RøD , S PACE 9 ) " 

552  A2*= " < RVS  OH , RøD , SPACE9 ) " 

553  A3*= " C RVS  ON , HV I D , SPACE9 ) " 

554  h4*= " C  RVS  ON , RøD , SPACE 9 ) " 

555  A5*= " < RVS  ON , RøD , SPACE 9 ) " 

556  S*=" ØSTRIG" 

557  RETURN 

56ø  REM  ***  SVERIGE  *** 

56 1  Al*=" < RVS  ON , BL A A , SPACE3 , GUL , 
SPACE , BL AA , SPAGES ) " 

562  A2*= " ( RVS  ON , BL A A , SPACE3 , GUL , 
SPACE, BL AA,SPACE5)" 

563  A3*= " < RVS  ON , GUL , SPACE 9 ) " 

564  A4*=  "  <  RVS  ON ,  BL.AA,  SPACE3 ,  GUL , 
SPACE, BLAA, SPAGES >" 
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565  A5f = " C R VS  ON , BLAA , SPACE3 , GUL , 
SPACE, BLAA,SPACE5>" 

566  S$=" SVERIGE" 

567  RETURN 

57ø  REM  ***  SCHWEIZ  *** 

57 1  fi 1 $= " < R VS  OH , RøD , SPACE9 > " 

572  A2$= " < R VS  ON , RøD , SPACE4 ,HVID, 
SPACE, RøD, SPACE4)" 

573  A3*= " < R VS  ON , RøD , SPACE3 , HV I D , 
SPACE3 , RØD , SPACE3  > " 

574  h4*= " < RVS  ON , RØD , SPACE4 , HV I D , 
SPACE, RøD, SPRCE4)" 

575  A5$= " < RVS  OH , RøD , SPACE9 > " 

576  S*«" SCHWEIZ" 

577  RETURN 

580  REM  **.*  LIBYEN  *** 

581  Al $= " ( RVS  ON , GRØN , SPACE9 ) " 

582  A2$=" C  RVS  ON , GRØN , SPACE9) " 

583  A3$= " ( RVS  ON , GRØN , SPACE9  > " 

584  A4$= " < RVS  ON , GRØN , SPRCE9 > " 

585  R5$= " C RVS  ON , GRØN , SPRCE9 > " 

586  Sf ="L I  BYEN" 

587  RETURN 

590  REM  ***  NICARAGUA  *** 

591  A 1 *= " < RVS  ON , BL  A A , SPACE9 > " 

592  A2*= " ( RVS  ON , BLAA , SPACE9 ) " 

593  R3*= " ( RVS  ON , HV I D , SPACE4 >  * 

594  R4$= " C  RVS  ON , BLAA , SPRCE9 > " 

595  A5$= " < RVS  ON , BLAA , SPACE9 > " 

596  S$=" NICARAGUA" 

597  RETURN 

6øø  REM  ***  COLOMBIA  *■*'*. 

6ø 1  A 1 £ = " < RVS  ON , GUL , SPACE9 > " 

602  A2$= " < RVS  ON , GUL , SPACE9 > " 

6ø3  A3f= " < RVS  ON , GUL , SPACE9 > " 

604  fl4*= " < RVS  ON , BLAA , SPACE9 > " 

6ø5  A5$= " ( RVS  ON , RøD , SPACE9 > " 

6ø6  S$=" COLOMBIA" 

6ø7  RETURN 

610  REM  ***  MEXICO  *** 

611  A  U= " ( RVS  ON , GRØN , SPACE3 , HV I D , 
SPACE3 , RøD , SPACE3  > " 

6 1 2  A2f = " ( RVS  ON , GRØN , SPACE3 , HV I D , 
SPACE3, RøD, SPACE3> " 

6 1 3  A3*= " ( RVS  ON , GRØN , SPACE3 , H V I D , 
SPACE.)*  (RøD, SPACE3) " 

614  A4$=" ( RVS  ON , GRØN , SPACE3 , HV I D , 
SPACE3, RøD, SPACE3) " 

6 1 5  A5$= " < RVS  ON , GRØN , SPACE3 , HV I D , 
SPACE3, RøD, SPACE3) " 

616  SM" MEXICO" 

617  RETURN 

62ø  REM  ***  PERU  *** 

621  A1**"<RVS  ON , RØD , SPACE3 , HV I D , 
SPACE3, RøD, SPACE3> " 

622  A2f= " < RVS  ON , RøD , SPACE3 , HV I D , 
3PACE3 , RøD , SPACE3  > " 

623  H3$= " ( RVS  ON , RøD , SPACE 3 , HV I D , 
SPACE > 0  (RøD, SPACE3) " 


624  A4i= " ( RVS  ON , RØD , SPACE3 , HV I D , 
SPACE3, RøD, SPACE3> " 

625  A5$= " ( RVS  ON , RøD , SPACE3 , H V I D , 
SPACE3 , RøD, SPflCE3> " 

626  S*« "PERU" 

627  RETURN 

63ø  REM  ***  ARGENTINA  *** 

631  Al $= " ( RVS  ON , L . BLAA , SPACE9 > " 

632  A2$= " ( RVS  ON , L . BLAA , SPACE9 > " 

633  A3$= " ( RVS  ON, HVID, SPACE4>@ 

634  A4$= " < RVS  ON , L . BLAA , SPACE9 ) " 

635  A5$= " ( RVS  ON , L . BLAA , SPACE9 > " 

636  S**" ARGENTINA" 

637  RETURN 

64ø  REM  ***  SPANIEN  *** 

641  AU- "(RVS  ON , RøD , SPACE9 > " 

642  A2$= " ( RVS  ON , GUL , SPACE9 > " 

643  A3 t=" ( RVS  ON , GUL , SPACE9 > " 

644  A4$=" (RVS  ON, GUL, SPACE9) " 

645  A5*=" ( RVS  ON , RøD , SPACE9 > " 

646  3^=" SPÅN I EN" 

647  RETURN 

65ø  REM  ***  FRANKRIG  *** 

651  AU="  (  RVS  ON ,  BLAA ,  SPACE3 ,  HV  I D , 
SPACE3 , RøD , SPACE3  > " 

652  A2* = " ( RVS  ON , BLAA , SPACE3 , HV I D , 
SPACE3, RøD, SPACE3> " 

653  A3f= " < RVS  ON , BLAA , SPACE3 , HV I D , 
SPACE3 , RøD , SPACE3  > " 

654  A4*= " ( RVS  ON , BLAA , SPACE3 , HV I D , 
SPACE3, RøD , SPACE3) " 

655  A5f = " ( RVS  ON , BLAA , SPACE3 , HV I D , 
SPACE3, RøD, SPACE3) " 

656  Sf=" FRANKRIG" 

657  RETURN 

660  IF  PO>H I  THEN  HI=PO 

661  PRINT" (CLR> DER  ER  IKKE  FLERE  FLA 
G  !  ! " 

662  PRINT: PR I NT "TAK  FOR  SPILLET  !" 

663  PR I NT : PR I NT " PO I NT  : " PO 

664  PR I NT "HI -SCORE: "HI 

665  PRINT: PR I NT : PR I NT ■ PR I NT 

PRINT"  NYT  SPIL  (J/NV 

666  GET  N$ : I F  Nf=" "THEN  666 

667  IF  N$0" J"THEN  END 

668  GOTO  lø 

67ø  REM  ***  FINLAND  *** 

671  Al$=" C  RVS  ON , HV I D , SPACE3 , L . BL AA , 
SPACE,  HVID,  SPACE5V 

672  A2*= " ( RVS  ON , HV I D , SPACE3 , L . BLAA , 
SPACE, HVID, SPACE5>" 

673  A3$= " ( RVS  ON , L . BLAA , SPACE9 > " 

674  A4f= "  (  RVS  ON ,  HV  I D ,  SPACE3 ,  L .  Bl.  AA , 
SPACE, HVID, SPACE5>" 

675  A5*= " < RVS  ON , HV I D , SPACE3 , L . BLAA , 
SPACE , HV I D , SPACE5  > " 

676  S$=" FINLAND" 

677  RETURN 


TAST  -  41 


TAST 


Cgmmgdore  64 

Program 

trunther 

Hermed  en  lille  rutine,  der  er  højs- 
upopulær  programmerne  imel¬ 
lem.  Den  knuser  nemlig  alle  de  an¬ 
dre  programmer  og  river  al  struk¬ 
turen  ud  af  dem.  ved  at  fjerne  alle 
REM-sætninger  og  mellemrum. 

Til  gengæld  sparer  det  Kb  RAM  i 
hukommelsen,  og  det  kan  vi  jo  alle 
tit  ha'  brug  for... 

Martin  K.  Pedersen 


100  DATA  165,122,141,169,2,165,123, 
141,170,2,32, 142,166,24,165,43, 

105.3.133.122 

110  DATA  165,44,105,0,133,123,169,0, 
133,253,141 , 171,2,76,24,193,201 , 
143,208,117 

120  DATA  165, 253, 20B, 3, 76, 211, 192,56, 
165,122,233,1,141,167,2,133,251, 

165.123 

130  DATA  233,0,141,168,2,133,252,24, 
32,9,169,32,251,168,165 
140  DATA  122,133,254,165,123,133,255, 
160,0,177, 254 , 145 , 251 , 230 , 254 , 20B , 
2,230 

150  DATA  255,230,251,208,2,230,252, 
165 , 251 ,197,45, 144 , 234 , 24 , 165 , 252 , 

197.46. 144 

160  DATA  227,173,167,2,133,122,173, 
168,2,133,123,165,122,197,45,144, 

9.165.123 

170  DATA  197,46,144,3,76,233,192,56, 
165,122,233,1 , 133,122,165,123,233, 
0,133,123 

180  DATA  169,0,133,253,76,41,192,201, 
0 , 240 , 22 , 169 ,1,133, 253 , 165 , 122 , 

197.45.144 

190  DATA  9,165,123,197,46,144,3,76, 
233,192,76,41 , 192,24,165,122,105, 

4.133. 122 


200  DATA  165,123,105,0,133,123,169,0, 
133,253,76,173,192,56,165,122,141 , 
167,2 

210  DATA  233,5,133,251,165,123,141, 
168,2,233,0,133,252,76,74,192,32, 
51,165, 169 

220  DATA  255,133,20,133,21,32,19,166, 
169,2,24,101,95,133,45,133,47,133, 
49, 169,0 

230  DATA  101,96, 133, 46, 133, 4B, 133,50, 
32,51,165,173,169,2,133,122,173, 

170.2.133 

240  DATA  123,96,32,101,193,201,32, 

208 , 3B , 173 , 171 , 2 , 208 ,62,165,122, 

141.167.2.133 

250  DATA  251, 165, 123, 141, 16B, 2, 133, 
252,24,32,101, 193,201,32,240,249, 

165.122.133 

260  DATA  254,165,123,133,255,76,91, 
192,72,201 ,34, 20B, 11 , 173,171,2,73, 
1,141, 171 

270  DATA  2,76,97,193,201,0,208,8,173, 
171,2,240,3,76,74,193,104,76,44, 
192, 160,0 

2BØ  DATA  230,122,208,2,230,123,177, 
122 ,201,58, 176 ,6,56, 233 ,48,56, 233 
208,96 

290  FOR  A=49160  TO  49529  .-READ  B 

: POKE  A , B : NEXT  A : PR I NT ”5Y5 C  49 160 5 
FOR  AT  STARTE  REflARK” 
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60  m=3: GOSUB  2190 

70  LOCATE  10,5: PR I NT "NY  DISK  I  KATALOG  (N)" 
80  LOCATE  50, 5: PR I NT "SAVE  DATA  <S)" 

90  LOCATE  lO, 7: PRINT”DISK  FRA  KATALOG  <D)“ 

100  LOCATE  50,7:PRINT“PRINTER  UDSKRIFT  <P)“ 

110  LOCATE  10, 9: PRINT'LIST  DISKE  <L)" 


120  LOCATE  50,9:PRINT“S0GE  DATA  I  KATALOG  <@>" 

130  LOCATE  33,24:PRINT" (  Max “ ; at J " d i  ske  )" 

140  LOCATE  35, li: PRINT  "FREE  ": LOCATE  40, 11: PRINT  FRE ( " " ) -4200 

150  IF  1 d=0  THEN  830 

160  z=0:c*=L0WER*(INKEY*> 

170  IF  c*=“n"  THEN  d=3:G0T0  2100 

180  IF  c*= "d M  THEN  2110 

190  IF  c*="s"  THEN  700 

200  IF  c*="p"  THEN  2120 

210  IF  c*="@"  THEN  x=2:y=6:G0T0  960 

220  IF  c*="l"  THEN  1520 

230  GOTO  160 

240  REM  ***  Disk  fra  katalog  <D)  *** 

250  GOSUB  2190 
260  w=6: LOCATE  64,4 

270  IF  ds$="a"  THEN  PRINT  "DATO  :  " ; ad* < n ) : GOTO  290 

280  IF  ds*="b"  THEN  PRINT  "DATO  :  " 1 bd* ( n ) : GOTO  320 

290  LOCATE  25, 4: PRINT  "Emne  :  " ; ae* < n ) 

300  FOR  i =1  TO  18:LOCATE  2,w:PRINT  nr*(n, i) :w=w+l:NEXT  i 
310  GOTO  340 

320  LOCATE  25,4:PRINT  "Emne  :  "Jbe*<n> 

330  FOR  i  =  19  TO  36:L0CATE  2,w:PRINT  nr*(n, i ) : w=w+ 1 : NEXT  i 
340  WHILE  INKEY(18X>0:WEND:G0T0  60 

350  REM  ***  Ny  disk  i  katalog  (N)  *** 

360  d«0:CLS 

370  LOCATE  l,l:PRINT  "DISK-NUMMER  :"|n*(nl+"  "+ds* 

380  IF  ds*="a“  THEN  q»l: LOCATE  64,l:PRINT  “DATO  :  "iad*(n) 

390  IF  ds*="b"  THEN  q=2:L0CATE  64,1:PRINT  "DATO  :  "?bd*<n) 

400  CAT 

410  LOCATE  27, 25: PRINT"Sid  stille,  AMSTRAD  skriver  !" 

420  IF  q= 1  THEN  440 
430  IF  q=2  THEN  570 

440  FOR  i =1  TO  1 8 : nr* ( n , i )="": NEXT  i 

450  FOR  i =1  TO  18 

460  FOR  x=l  TO  77: y=i+4 

470  LOCATE  x , y : a*=COPYCHR* ( #0 ) 

480  nr*(n,i)=nr*(n,i)+a* 

490  NEXT  x 

500  IF  nr* ( n , i ) “STRING* ( 77, "  ")  AND  q=9  THEN  nr* ( n , i - 1 ) =LEFT* ( nr* ( n , i - 1 ), 1 0 ): nr* 
(n, i ) = " " : GOTO  530 

510  IF  nr*(n, i ) =STRING* <77, "  ")  THEN  nr* ( n , i >=“*": q=9 
520  NEXT  i 

530  ENV  2, 10, -1,5:S0UND  1,25,50,10,1 

540  LOCATE  25,25:PRINT  SPACE* < 40 ): LOCATE  1 , 25: PRINT"Samme  emne  :  > " 5  ae* < n ) : LOCAT 
E  42 , 25 : PRINT " <  tast  ENTER,  ellers  skriv  i  linie  1": 

LOCATE  58, 1 : PRINT"< " 

550  LOCATE  23,1:LINE  INPUT  "Emne  : > " , ae* (O) : IF  ae*(0)<>""  THEN  ae*(n)=LEFT*(ae*( 
O) , 28) 

560  GOTO  690 

570  FOR  i=19  TO  36 : nr* ( n , i >="": NEXT  i 

580  FOR  i =1 9  TO  36 

590  y= i - 1 4 : FOR  x=l  TO  77 
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600  LOCATE  x , y : a*=COPYCHR* ( #0 ) 

610  nr$(n, i)=nr$(n, i)+a$ 

620  NEXT  x 

630  IF  nr*(n, i > =STRING* (77, “  ")  AND  q=9  THEN  nr* ( n , i - 1 ) =LEFT* ( nr* ( n , i - 1 ) , 10 ) : nr* 
(n, i )=" " IGOTO  660 

640  IF  nr* ( n , i ) =STRING* ( 77 , “  “)  THEN  nr*(n, i )=”*“: q=9 
650  NEXT  i 

660  ENV  2, 10,-1, 5:S0UND  1,25,50,10,1 

670  LOCATE  25,25:PRINT  SPACE* ( 40 >: LOCATE  1 , 25: PR I NT" Samme  emne  :  > “ , be* ( n ) C  LOCAT 

E  42, 25: PRINT“<  tast  ENTER,  eller  skriv  i  linie  1  * :  L 
OC ATE  58, l:PRINT"< " 

680  LOCATE  23,1: LINE  INPUT  "Emne  : > " , be* ( O ) : I F  be*<0)<>""  THEN  be* ( n ) =LEFT* ( be* ( 
O) , 28) 

690  WHILE  INKEY ( 18) < >0: WEND: GOTO  60 

700  REM  ***  Save  data  (S)  *** 

710  LOCATE  19, 16: INPUT  "Har  du  den  rigtige  disk  i  drevet  ?  (J/N)  :  " , s* 

720  IF  LOWER* ( s*) = " j "  GOTO  730  ELSE  50 
730  LOCATE  35,18:PRINT  “Saving  data" 

740  OPENOUT  "! DISKDATA" 

750  FOR  j=l  TO  at 

760  PR I NT #9 , ad* ( j  )  : PRINT #9 , ae*  <  j )  : PR I NT#9 , bd* ( j  ) : PRINTW9 , be* < j ) 

770  FOR  t=l  TO  36 
780  PRINT#9,nr*(j ,t) 

790  NEXT  t : NEXT  j 
800  CLOSEOUT 

810  ENV  2, 10, -1,5:S0UND  1,25,50,10,1 

820  LOCATE  3,16:PRINT  SPACE* ( 75 ): LOCATE  3,18:PRINT  SPACE* ( 75 >: GOTO  160 
830  REM  ***  Loading  data  *** 

840  LOCATE  35,18:PRINT  “Loading  data" 

850  OPENIN  "! DISKDATA" 

860  FOR  j=l  TO  at 

870  I NPUT#9 , ad* ( j ) : I NPUT# 9 , ae* ( j ) : I NPUT#9 , bd* ( j ) : I NPUT#9 , be* < j ) 

880  FOR  t=l  TO  36 
890  I NPUT  #9 , nr* ( j  , t ) 

900  NEXT  t : NEXT  j 

910  IF  ERR=32  THEN  RESUME  920 

920  CLOSEIN: ld=100 

930  ENV  2, 10, -1 , 5: SOUND  1,25,50,10,1 

940  LOCATE  3,16:PRINT  SPACE* < 75 ): LOCATE  3,18:PRINT  SPACE*<75> 

950  LOCATE  34,18:LINE  INPUT  "DATO  :  ",  dato*: LOCATE  3,18:PRINT  SPACE* ( 75 >: LOCATE 

35,ll:PRINT  SPACE* (25) :GOTO  140 

960  REM  ***  SOGE  DATA  (0)  *#* 

970  s=3:G0SUB  2190 

980  LOCATE  62, 2: PRINT “DISK- NUMMER  :  “ 

990  LOCATE  2, 2: INPUT  "SOGER  DATA  :  " , se*: se*=UPPER* ( se*) 

1000  LOCATE  40,4:PRINT  “*  SPACE  tor  flere  ***  ENTER  for  menu  *" 

1010  d=LEN ( se* ) 

1020  FOR  q= 1  TO  at 

1030  LOCATE  62,2: PRINT "DISK -NUMMER  :  "}q 
1040  FOR  w=l  TO  18 
1050  t=0 

1060  na*=MID*(nr*(q,w) , 1, 17) : IF  MID* ( na*, 1 , d ) =se*  THEN  GOSUB  1320 
1070  IF  n a*= “ "  THEN  t  =  t  +  l 

1080  na*=MID*(nr*(q,w) ,21, 17) : IF  M I D* ( na* , 1 , d ) =se*  THEN  GOSUB  1320 
1090  IF  na*=“ "  THEN  t=t+l 

1100  na*=MID*(nr*(q, w) ,41, 17) : IF  MID* ( na*, 1 , d ) =se*  THEN  GOSUB  1320 
1110  IF  na*= “ "  THEN  t=t+l 

1120  na*=MID*(nr*(q, w) ,61, 17) : IF  MID* ( na*, 1 , d ) =se*  THEN  GOSUB  1320 
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1130  IF  na*= " "  THEN  t=t+l 
1140  v=w+ 1 8 

1150  na*=MID$(nr*(q, v) , 1, 17) : IF  MID*(na«, l,d)=seS  THEN  GOSUB  1280 
1160  IF  na$= “ "  THEN  t=t+l 

1170  na*=MID$ (nr*(q,v) »21, 17) : IF  MID* ( na*, 1 , d ) =se*  THEN  GOSUB  1280 
1180  IF  na*=““  THEN  t=t+l 

1190  na$=MID*(nr*(q,v) ,41, 17) : IF  MI D* ( na*, 1 , d ) =se$  THEN  GOSUB  1280 
1200  IF  na$= “ M  THEN  t=t+l 

1210  na*=MID*(nr*(q, v) ,61, 17) : IF  MID* ( na*, 1 , d ) =se«  THEN  GOSUB  1280 
1220  IF  na*=“"  THEN  t=t+l 
1230  IF  t  =8  THEN  w=19 
1240  NEXT  w: NEXT  q 

1250  LOCATE  40,4:PRINT  SPACE* < 39 ): PRINT  CHR*<7) 

1260  LOCATE  40, 4: PRINT  “*  Ikke  Tiere  data  ***  ENTER  Tor  menu  *“ 

1270  while  inkey<18)<>o:wend:goto  60 

1280  ENV  1 , 10, -1 , 5: SOUND  1,25,50,10,1 

1290  LOCATE  3,4:PRINT  SPACE* ( 36 ): LOCATE  3,4: PR I NT "Emne  :  ";be*(q> 

1300  IF  q< 1 O  THEN  LOCATE  x  +  l,y  : PRINT  q : LOCATE  x+3,y:PRINT  -  b  "jna*.'GOTO  1360 
1310  IF  q >9  THEN  LOCATE  x,y  :PRINT  q : LOCATE  x+3,y:PRINT  “  b  ”jna*:GOTO  1360 
1320  ENV  1,10,-1,5:S0UND  1,25,50,10,1 

1330  LOCATE  3,4:PRINT  SPACE* ( 36 >: LOCATE  3 , 4 : PR I NT " Emne  :  ";ae*(q) 

1340  IF  q< 1 O  THEN  LOCATE  x+l,y  :PRINT  q : LOCATE  x+3,y:PRINT  "  a  " J na* 

1350  IF  q  >9  THEN  LOCATE  x,y  .'PRINT  q :  LOCATE  x+3,y:PRINT  “  a  "|na* 

1360  y=y+l:lF  y=25  AND  x=2  THEN  y=6:  x=28 
1370  IF  y=25  AND  x=28  THEN  y=6: x=54 
1380  IF  y=25  AND  x=54  THEN  GOSUB  1430 
1390  WHILE  INKEY  < 18) <  >0  OR  INKEY(47)<>0 
1400  IF  INKEY (18)=0  THEN  60 
1410  IF  I NKEY ( 47 ) =0  THEN  RETURN 
1420  WEND 

1430  FOR  i =6  TO  23 

1440  LOCATE  2,i:PRINT  SPACE *(77) 

1450  NEXT  i : LOCATE  2,24:PRINT  SPACE*<52) 

1460  FOR  i =55  TO  79 

1470  LOCATE  i , 24 : a*=COPYCHR* ( #0 ) 

1480  LOCATE  i -52, 6: PRINT  a* 

1490  NEXT  i 

1500  x=2: y=7: LOCATE  54,24:PRINT  SPACE*<24) 

1510  RETURN 

1520  REM  ***  LIST  DATA  *** 

1530  FOR  n  =  l  TO  at :  n*  <  n  )  =STR*  (  n  >:  ds*=  “  a  GOSUB  2190 
1540  LOCATE  4, 2:  PRINT"SPACE-tast  -for  -flere" 

1550  LOCATE  64,4:PRINT  “DATO  :  ad* ( n ): LOCATE  25,4:PRINT  "Emne  :  " ; ae* ( n ) 

1560  w=6:F0R  j=l  TO  18 

1570  LOCATE  2,w:PRINT  nr* < n  ,  i ):  w=w+ 1 :  IF  nr*<n,i)="“  THEN  1590 
1580  NEXT  i 

1590  WHILE  INKEY  ( 18)  <  >0  OR  INKEY(47)00 
1600  IF  INKEY ( 18) =0  THEN  60 
1610  IF  I NKEY ( 47 ) =0  THEN  1630 
1620  WEND 

1630  ds*="b" : GOSUB  2190 

1640  LOCATE  4 , 2 : PR I NT " SPACE- t as t  for  flere" 

1650  LOCATE  64,4:PRINT  "DATO  :  "; bd* < n ): LOCATE  25,4:PRINT  "Emne  :  “Jbe*(n) 

1660  w=6:F0R  i=19  TO  36 

1670  LOCATE  2,w:PRINT  nr* ( n , i ): w=w+ 1 : IF  nr*(n,i)="“  THEN  1690 
1680  NEXT  i 

1690  WHILE  INKEY ( 18) <  >0  OR  INKEY<47)<>0 
1700  IF  INKEY ( 18) =0  THEN  60 
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1710 

IF  I NKEY ( 47 ) =0  THEN  1730 

1720 

WEND 

1730 

NEXT  n 

1740 

WHILE  INKEY ( 18) < >0: WEND: GOTO  60 

1750 

GOTO  60 

1760 

REM  ***  Printer 

udskr i  + 1 

( P )  *** 

1770 

IF  ds*= “ b "  THEN  1850 

1780 

CLS 

1790 

LOCATE  4, 1:PRINT"DI SK -NUMMER : " i n$(n) +“  "+ds* 

1800 

LOCATE  64, 1 : PRINT " DATO:  "!ad*(n> 

1810 

LOCATE  25,l:PRINT  "Emne:  " ; ae$ ( n ) : LOCATE  2,2:PRINT 

1820 

w=3:  FOR  i =1  TO  18:L0CATE  2,w:PRINT  nr*ln, i ) : w=w+l : NEXT 

i 

1830 

GOSUB  2040 

1840 

GOTO  1920 

1850 

CLS 

1860 

LOCATE  4, 1 : PRINT "DISK-NUMMER: “ j n* ( n ) ♦ “  “+ds* 

1870 

LOCATE  64, 1 : PRINT-DATO:  ";bd*(n> 

1880 

LOCATE  25,l:PRINT  "Emne:  " 5 be* ( n >: LOCATE  2,2:PRINT 

1890 

w=3:  FOR  i =19  TO  36:LOCATE  2,w:PRINT  nr* ( n , i >: w=w+ 1 : NEXT 

i 

1900 

GOSUB  2040 

1910 

GOTO  1980 

1920 

PRINT#8, TAB (5) "DISK-NUMMER: "}n*(n)+"  " +  ds*J TAB < 25 ) "Emne: 

N 

;  ae* ( n ) ; TAB (64)  "D 

ato: 

" 5  ad* ( n ) 

1930 

PR I NT#8 , TAB (3) "*" 

1940 

FOR  i =1  TO  18 

1950 

PRINTW8, TAB (3) H";nr*(n, i) ; 

1960 

NEXT  i : PR I NT #8: PRINT#8 

1970 

PRINT  CHR*(7):G0T0  60 

1980 

PRINT#8, TAB (5) "DISK-NUMMER: "5n*(n>+“  " +ds*5 TAB ( 25 ) "Emne: 

N 

; be* ( n ) ; TAB (64) "D 

ato: 

" ; bd* ( n ) 

1990 

PRINTH8, TAB (3) 

2000 

FOR  i =1 9  TO  36 

2010 

PRINTH8, TAB (3) ""Jnr*(n, i) ; 

2020 

NEXT  i : PR I NT #8: PR I NT »8 

2030 

PRINT  CHR*(7):G0T0  60 

2040 

LOCATE  19, 25:  PRINT"Tast  SPACE  -for  print  eller  ENTER  tor 

menu  “ 

2050 

WHILE  I NKEY  <  47 ) <  >0  OR  INKEY < 18 X >0 

2060 

IF  INKEY (47) =0  THEN  RETURN 

2070 

IF  INKEY« 18) =0  THEN  60 

2080 

WEND 

2090 

’  Sub-rutiner 

fra  menu  *** 

2100 

LOCATE  8, 5: PRINT; CHR* (243) : GOSUB  2130:G0T0  360 

2110 

LOCATE  8,7:PRINT;CHR*(243) : GOSUB  2130:GOTO  240 

2120 

LOCATE  48,7:PRINTJCHR*(243) : GOSUB  2130:GOTO  1760 

2130 

LOCATE  30  ,  1  6  :  L I NE  INPUT  "DISK-NUMMER  tt  (a/b)  :  "  ,  m*:  n=VAL  (m*)  :  ds*= 

RIGHT*(LO 

WER*(m*) , 1 ) : n$(n)=STR$(n) 

2140 

IF  n< 1  OR  n  >at  THEN  50 

2150 

IF  ds*<  >"a"  AND  ds*<  > “b"  THEN  50 

2160 

IF  d=3  AND  d s*= " a "  THEN  ad*(n)=dato* 

2170 

IF  d=3  AND  ds*="b"  THEN  bd*(n)=dato* 

2180 

RETURN 

2190 

CLS: ORIGIN  0,0:DRAW  0,390:DRAW  639, 390: DRAW  639,0:DRAW  0 

,0 

:  ’ ramme 

2200 

PLOT  0,364:DRAW  640 , 364 : LOCATE  34, 2: PRINT "DI SK -KAT AL OG" 

2210 

IF  m=3  THEN  PLOT  0,220:DRAW  639, 220: m=0: RETURN 

2220 

IF  s=3  THEN  PLOT  0,325:DRAW  640 , 325 : s=0 : RETURN 

2230 

LOCATE  59,2:  PR  I  NT  “ENTER -tast  -for  menu":PLOT  0,325:DRAW  640 

,  325 

2240 

LOCATE  3,4:PRINT  "DISK-NUMMER  : " 5 n* ( n ) + "  ”+ds* 

2250 

RETURN 
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